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PATENT 



Mobile Software Morphing Agent 

COPYRIGHT NOTICE 
A portion of the disclosure of this patent document contains material that 
is subject to copyright protection. The copyright owner has no objection to the facsimile 
reproduction by anyone of the patent document or patent disclosure as it appears in the 
Patent and Trademark Office patent file or records, but otherwise reserves all copyright 
rights whatsoever. 

CROSS-REFERENCES TO RELATED APPLICATIONS 
This application is related to U.S. Provisional Patent Application Serial 
No. 60/212,060 (Atty. Docket No. 017887-005300), filed June 16, 2000, entitled "Mobile 
Software Morphing Agent," the disclosure of which is hereby incorporated by reference 
in its entirety. 

BACKGROUND OF THE INVENTION 
The present invention relates generally to modifying and translating 
information received from a remote source, and more particularly to modifying and 
translating executable code and data received from a web site. 

The World Wide Web (WWW), or "the Web", is now the premier outlet to 
publish information of all types and forms. Documents published on the web, commonly 
called Web pages, are typically published using a markup language such as HTML (or 
Hyper Text Markup Language), which sets standards for the formatting of documents. 
Additionally, These standards make it possible for people to read and understand 
documents no matter which program they use for that purpose. Often included in an 
HTML formatted web page are software code segments attached as part of the page. 
Examples of such software include JavaScript, Java and ActiveX commands. If a user's 
browser is enabled to process the software code, the code will typically be processed to 
provide additional windows, e.g., pop-up windows, forms and other content for 
presentation to the user. 

Typically, a user accesses pages on the Web through a web portal. One 
common portal is Yahoo located at URL: http://www.yahoo.com/. When a user selects a 
reference such as a URL presented on a page provided by the portal, the users browser 



will access another page associated with the URL at a remote site. From then on, the user 
will be connected to the remote server unless the browser is instructed to return to the 
portal (e.g., via a "back" button or a "home" button displayed on the browser). In the 
commerce context, for example, a user may access a remote commerce site and conduct 

5 transactions, e.g., to purchase a product. In this case, the portal is completely unaware of 
any transactions or information exchange between the user and the remote site. 

It is therefore desirable for a web portal to provide a page from a remote 
site, such as a remote commerce site, via a special proxy server to a user and to keep the 
user connected to the proxy so that information exchange between the user and remote 

1 0 server can be monitored by the proxy. However, it may be necessary to modify HTML 
formatting, HTML links and JavaScript code associated with a page provided by a remote 
site so that information exchange activity is directed to the proxy. For example, it is 
desirable to translate a link directed to a particular site into a link directed to the proxy so 
that the proxy handles access to the desired page from the particular site. 

1 5 Accordingly, it is desirable to provide a configurable system to parse and 

translate downloadable software and/or content without additional development efforts 
from the original software and content provider. Additionally, it is desirable to provide 
an adaptive system to serve a corresponding software morphing agent to handle the 
original software and content. 

20 

SUMMARY OF THE INVENTION 
The present invention provides systems and methods for extending or 
modifying the behavior of executable code and/or data that can be downloaded to a client 

25 device (e.g., a PC, laptop, PalmPilot, PDA or other hand-held communication device, 
etc.) implementing a browser program (e.g., Microsoft Internet Explorer, Netscape 
Navigator, a microbrowser such as a WAP enabled browser, etc.). The present invention 
is particularly useful for modifying web content, such as a web page received from a web 
site, including JavaScript code and/or HTML data. 

30 According to the invention, one or more morphing agents are provided for 

translating and modifying code and data from a software source, such as a remote server. 
Each morphing agent translates and modifies a particular type of code. For example, one 
morphing agent may be provided for processing JavaScript code and another may be 
provided for processing HTML code and data. It will be appreciated that one morphing 

2 



agent may be provided for processing multiple types of code, for example, one morphing 
agent for processing JavaScript and HTML code. Each morphing agent typically includes 
a tokenizer module, a parser module and a translation module, each of which implements 
specific rule sets. Original software content is first tokenized according to a set of 
5 tokenizer rules, and subsequently parsed according to a set of parser rules to determine 
relationships between the tokens. The parsed code is then translated according to the set 
of translator rules to produce the desired modified software content. An exception 
handler module is also provided for implementing exception rules when an exception 
occurs. 

10 In operation, a user establishes a connection with a proxy server using the 

browser program on the client device, and the proxy server establishes a connection with 
the software source. The original software content is downloaded by the proxy server. 
All modules of a particular morphing agent can be located either on the client device or 
on the proxy server, or they may be spread between the client device and proxy server. 

1 5 Thus, if all modules reside on the proxy server, the morphing agent modifies the original 
software content and the modified content is downloaded to the client device. Similarly, 
if all modules reside on the client device, the original content is downloaded to the client 
device for processing by the morphing agent at the client device. If some of the modules 
reside on the proxy server, those module process the original content and the partially 

20 processed code is downloaded to the client device for processing by the remaining 
modules. 

According to an aspect of the present invention, a computer implemented 
method is provided for modifying code to be compatible with a runtime library, wherein 
the code is received from a remote source. The method typically comprises the steps of 

25 receiving the code segment from the remote source, tokenizing the code segment into a 
plurality of tokens, and parsing the plurality of tokens so as to determine relationships 
between the plurality of tokens. The method also typically includes the step of translating 
the code segment into a modified code segment based on the determined relationships 
between the tokens such that the modified code segment is compatible with the runtime 

30 library. 

According to another aspect of the present invention, a computer readable 
medium containing instructions for controlling a computer system to modify a code 
segment received from a remote source to be compatible with a runtime library is 
provided. The instructions typically include instructions to tokenize the code segment 
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into a plurality of tokens, and parse the plurality of tokens so as to determine relationships 
between the plurality of tokens. The instructions also typically include instructions to 
translate the code segment into a modified code segment based on the determined 
relationships between the tokens such that the modified code segment is compatible with 

5 the runtime library. 

Reference to the remaining portions of the specification, including the 
drawings and claims, will realize other features and advantages of the present invention. 
Further features and advantages of the present invention, as well as the structure and 
operation of various embodiments of the present invention, are described in detail below 

10 with respect to the accompanying drawings. In the drawings, like reference numbers 
indicate identical or functionally similar elements. 

BRIEF DESCRIPTION OF THE DRAWINGS 
Figure 1 illustrates a general overview of an information retrieval and 
1 5 communication network including a proxy server, client devices, and remote servers 
according to an embodiment of the present invention; 

Figure 2 illustrates various configurations of a runtime environment of a 
morphing agent according to embodiments of the present invention; and 

Figure 3 illustrates a general processing flow between modules of a 
20 morphing agent according to an embodiment of the present invention. 

DESCRIPTION OF THE SPECIFIC EMBODIMENTS 
Figure 1 illustrates a general overview of an information retrieval and 

25 communication network 10 including a proxy server 20, clients 30i to 30 N , and remote 
servers 50i to 50 N according to an embodiment of the present invention. In computer 
network 10, clients 30] to 30n are coupled through the Internet 40, or other 
communication network, to proxy server 20 and servers 50i to 50 N . Only one proxy 
server 20 is shown, but it is understood that more than one proxy server can be used and 

30 that other servers providing additional functionality may also be interconnected to any 
component shown in network 10 either directly, over a LAN or a WAN, or over the 
Internet. 

Several elements in the system shown in Figure 1 are conventional, well- 
known elements that need not be explained in detail here. For example, each client 30 
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could be a desktop personal computer, workstation, cellular telephone, personal digital 
assistant (PDA), laptop, or any other computing device capable of interfacing directly or 
indirectly to the Internet. Each client 30 typically runs a browsing program, such as 
Microsoft's Internet Explorer, Netscape Navigator, or a WAP enabled browser in the case 
5 of a cell phone, PDA or other wireless device, or the like, allowing a user of client 30 to 
browse pages available to it from proxy server 20, servers 50! to 50 N or other servers over 
Internet 40. Each client 30 also typically includes one or more user interface devices 32, 
such as a keyboard, a mouse, touchscreen, pen or the like, for interacting with a graphical 
user interface (GUI) provided by the browser on a monitor screen, LCD display, etc., in 
10 conjunction with pages and forms provided by proxy server 20, servers 50i to 50 N or 

other servers. The present invention is suitable for use with the Internet, which refers to a 
specific global Internetwork of networks. However, it should be understood that other 
networks can be used instead of the Internet, such as an intranet, an extranet, a virtual 
private network (VPN), a non-TCP/IP based network, any LAN or WAN or the like. 
15 According to one embodiment as will be described in more detail below, 

proxy server 20 and/or clients 30, and all of their related components are operator 
configurable using an application including computer code run using a central processing 
unit such as an Intel Pentium processor or the like. Computer code for operating and 
configuring proxy server 20 and/or clients 30 as described herein is preferably stored on a 
20 hard disk, but the entire program code, or portions thereof, may also be stored in any 
other memory device such as a ROM or RAM, or provided on any media capable of 
storing program code, such as a compact disk medium, a DVD, a floppy disk, or the like. 
Additionally, the entire program code, or portions thereof may be downloaded to clients 
30 or otherwise transmitted as is well known, e.g., from proxy server 20 over the Internet, 
25 or through any other conventional network connection as is well known, e.g., extranet, 
VPN, LAN, etc., using any communication protocol as is well known. 

In general, a user accesses and queries proxy server 20, servers 50i to 50n, 
and other servers through a client 30 to view and download content such as news stories, 
advertising content, search query results including links to various websites and so on. 
30 Such content can also include other media objects such as video and audio clips, URL 
links, graphic and text objects such as icons and links, and the like. Additionally, such 
content is typically presented to the user as a web page formatted according to 
downloaded JavaScript code and HTML code and data as is well known. It will be 
appreciated that the techniques of the present invention are equally applicable to 
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processing other types of code such as Java code and ActiveX code, and any markup 
language, including any instance of SGML, such as XML, WML, HTML, DHTML and 
HDML. 

According to one embodiment of the invention, a user preferably accesses 
5 servers 50i to 50n through proxy server 20. In the context of electronic commerce, for 
example, a user may access a local commerce site that provides access (via URL or other 
selectable links or references) to remote commerce sites, such as individual commerce 
web sites. One such system is described in U.S. Patent Application Serial Number 
09/372,350 (Any. Docket No. 017887-002500), entitled "Electronic Commerce System 
1 0 for Referencing Remote Commerce Sites at a Local Commerce Site," filed August 1 1 , 
1999, the contents of which are hereby incorporated by reference in their entirety for all 
purposes. As described therein, a Remote Merchant Integration Server (RMIS) provides 
an interface to multiple merchant web sites. A user that accesses a remote commerce site 
through the RMI proxy is presented with a slightly modified version of the commerce site 
15 by the RMI server. Any requests from the user to a remote commerce site is managed by 
the RMI server and any responses by the remote commerce site are also managed by the 
RMI server transparently to both the user and the remote commerce site. One advantage 
of such a system includes the ability to provide, in the commerce context, a single 
shopping basket to a user who desires to shop at multiple remote commerce sites. 
20 Another advantage is the ability to track transactional information associated with users' 
purchases at the various merchant sites. An example of such a system can be located on 
the Internet at the Yahoo! Shopping site (URL: http://shopping.yahoo.com/). In this 
example, it is desirable to modify JavaScript code and HTML code and data received 
from the remote commerce sites using the techniques of the present invention to facilitate 
25 integration of the RMI system and to maintain user connection to the RMI system during 
transactions with the remote commerce sites. 

According to an embodiment of the present invention, a set of different 
software morphing agents are provided for handling different kinds of software 
technologies. For example, one morphing agent (MA) is provided for handling 
30 JavaScript and another MA is provided for handling HTML. The MA for each type of 

the original third-party software technology is delivered to the appropriate device(s), e.g., 
proxy server 20 and/or a client device 30. 

Figure 2 illustrates various exemplary configurations of a runtime 
environment of a morphing agent (MA) according to embodiments of the present 
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invention. As shown in each configuration, a software source 150, such as a server 50 in 
Figure 1, provides software to a client device 130 through proxy 120. Depending on the 
particular MA and its configuration, the software will be modified at the proxy 120, at the 
client device 130 or partially at the proxy 120 and partially at the client device 130. In 
5 configuration a), for example, all components of a particular MA are downloaded to a 
client device 130 and run in conjunction with a browser application. In configuration b), 
all components of a particular MA are loaded and run at a proxy server 120. In 
configuration c), for a particular MA, some components are loaded and run at a proxy 
server 120 while other components are downloaded to, and run at, a client device 130. 
10 In general, if the code to be modified includes portions that are 

dynamically assembled, it is preferred that all components for the MA be downloaded to 
the client device (configuration a). One example of dynamically assembled code in 
JavaScript could be represented as x + y + "s", where the portion "s" is dynamically 
assembled or generated by the browser application resident on the client device. Thus, it 
15 is preferred that all components of a JavaScript MA be installed on the client side, e.g., at 
client device 130 to parse and translate dynamically assembled code such as portion "s." 

Figure 3 illustrates a general processing flow between modules of a 
morphing agent according to an embodiment of the present invention. As shown, each 
morphing agent (MA) includes a tokenizer module 210, a parser module 220 and a 
20 translator module 230. Associated with each module is a corresponding rule set, e.g., 
tokenizer rule set 215, parser rule set 225, and translator rule set 235. An exception 
handler 240, and associated exception rules set 245, is optionally provided for handling 
exceptions that occur during the software modification and translation process. Each MA 
also includes a client-side Runtime Library 250 that includes functions, variable and data 
25 configured to run with a browser application. One example of a runtime library can be 
found in Appendix A. 

In operation, before the original software content 260 is processed or 
executed, all necessary MA components for modifying that particular software type must 
be installed at the client device 130 (via downloading) and/or at a proxy server 120. The 
30 MA then "morphs" (e.g., tokenizes, parses and translates) the original software content 
260 into the desired software content 270. Optionally provided exception handler 240 
handles any errors that occur during the morphing process. In one embodiment, if an 
exception, or error, occurs during the morphing process, the exception handler causes the 
process to be bypassed. The tokenizer 210, parser 220, translator 230, and exception 
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handler 240 are all configurable via their respective rule sets (i.e. 215, 225, 235, 245). 
The desired output 270 can then work together with the client-side runtime library 250 
(via downloading) in a user's browser. 

Once the original software content is received, tokenizer module 210 
5 analyzes the string of characters representing a code segment and maps the characters to 
various token types according to the tokenizer rule set 215. Typical JavaScript token 
types include string, integer, keyword, identifier, etc. Parser 220 then parses the resulting 
set of tokens according to the parser rule set 225 to determine relationships between the 
token types associated with the code segment being analyzed. In one embodiment, a 
10 hierarchical tree structure relating the various tokens is created. One example of 
tokenizer and parser code useful for tokenizing and parsing JavaScript is the NGS 
JavaScript Interpreter which can be located and downloaded from the Internet at URL: 
http://www.ngs.fi/js/, the contents of which are hereby incorporated for reference for all 
purposes. Translator module 230 then transforms the code segment into the desired 
1 5 software content 270 based on the specific translator rule set 235, the token types, and the 
relationships between the tokens determined by parser 220. 

It may be necessary to modify the above NGS JavaScript Interpreter 
(tokenizer and parser, in particular) to run more efficiently when integrated with a 
browser application such as Microsoft Internet Explorer or Netscape Navigator. 
20 Appendix B includes examples of a modified tokenizer and parser from NGS J avaScript 
Interpreter, translator code and code for integrating the modified tokenizer and parser 
with a Browser, according to one embodiment of the present invention. 

A typical translator module (230 + 235) of an MA for transforming 
JavaScript transforms function calls and variables to new function calls and variables to 
25 be used together with a client-side runtime library 250 in a user's browser. For example, 
a function call "open()" is translated according to one embodiment as follows: 
"open (URL, TARGET, OPT)" is translated to 
"new functionl(URL, TARGET, OPT)", where the function 
"new_funcfionl()" is implemented in the client-side runtime library. 
30 Similarly, a variable assignment expression is translated according to one 

embodiment as follows: 

"OBJ.location=URL" is translated to 
"OBJ.location=new_function2(URL)", where the function 
"new_function2" is implemented in the client-side runtime library. 
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Appendix C illustrates examples of translation rules (e.g., 235) for 
translating function calls and variables according to one embodiment of the present 
invention. 

While the invention has been described by way of example and in terms of 
5 the specific embodiments, it is to be understood that the invention is not limited to the 
disclosed embodiments. To the contrary, it is intended to cover various modifications and 
similar arrangements as would be apparent to those skilled in the art. Therefore, the 
scope of the appended claims should be accorded the broadest interpretation so as to 
encompass all such modifications and similar arrangements. 
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WHAT IS CLAIMED IS: 



1 1 . A computer implemented method of modifying code to be 

2 compatible with a runtime library, wherein the code is received from a remote source, the 

3 method comprising the steps of: 

4 receiving a code segment from the remote source; 

5 tokenizing the code segment into a plurality of tokens; 

6 parsing the plurality of tokens so as to determine relationships between the 

7 plurality of tokens; 

8 translating the code segment into a modified code segment based on the 

9 determined relationships between the tokens such that the modified code segment is 
1 0 compatible with the runtime library. 

1 2. The method of claim 1 , wherein the code segment is one of a 

2 JavaScript code segment, a Java code segment, an ActiveX code segment and a markup 

3 language segment. 

1 3. The method of claim 1, wherein the runtime library is linked to a 

2 browser application in a client device communicably coupled to a proxy server, and 

3 wherein the steps of receiving, tokenizing, parsing and translating the code segment are 

4 performed in the proxy server. 



1 4. The method of claim 3 , further including the step of sending the 

2 modified code from the proxy server to the client device to be processed by the browser. 

1 5 . The method of claim 3 , wherein the client device is communicably 

2 coupled to the proxy server over the Internet. 
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1 6. The method of claim 1 , wherein the proxy server performs the 

2 steps of receiving, tokenizing, parsing and translating the code segment. 

1 7. The method of claim 1, wherein the runtime library is linked to a 

2 browser application in a client device communicably coupled to a proxy server, wherein 

3 the step of receiving the code segment from the remote source is performed in the proxy 

4 server, wherein the steps of tokenizing, parsing and translating the code segment are 

5 performed in the client device, and wherein the method further includes the step of 

6 sending the code segment from the proxy server to the client device. 



1 8 . The method of claim 7, wherein the code segment includes a 

2 dynamically assembled portion. 

1 9. The method of claim 7, wherein the client device is communicably 

2 coupled to the proxy server over the Internet. 

1 10. The method of claim 1 , wherein the step of translating includes 

2 translating a first function call to a second function call, wherein the second function call 

3 is compatible with the runtime library. 

1 11. The method of claim 1 , wherein the step of translating includes 

2 translating a function call to a variable, wherein the variable is compatible with the 

3 runtime library. 

1 12. The method of claim 1 , wherein the step of translating includes 

2 translating a first variable to a second variable, wherein the second variable is compatible 

3 with the runtime library. 
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1 13. The method of claim 1 , wherein the step of translating includes 

2 translating a variable to a function call, wherein the function call is compatible with the 

3 runtime library. 

1 14. The method of claim 1, 

2 wherein the code segment includes one or more first elements selected 

3 from the group consisting of: 

4 digits, characters, keywords, literals, identifiers, operators, expressions, 

5 statements, variables, regular expressions, functions, arguments and programs; 

6 wherein the modified code segment includes one or more second elements 

7 selected from the group consisting of: 

8 digits, characters, keywords, literals, identifiers, operators, expressions, 

9 statements, variables, regular expressions, functions, arguments and programs; 

10 and 

1 1 wherein the second elements are compatible with the runtime library. 

1 1 5. A computer readable medium containing instructions for 

2 controlling a computer system to modify a code segment received from a remote source 

3 to be compatible with a runtime library, by: 

4 tokenizing the code segment into a plurality of tokens; 

5 parsing the plurality of tokens so as to determine relationships between the 

6 plurality of tokens ; 

7 translating the code segment into a modified code segment based on the 

8 determined relationships between the tokens such that the modified code segment is 

9 compatible with the runtime library. 

1 16. The computer readable medium of claim 1 5 , wherein the code 

2 segment is one of a JavaScript code segment, a Java code segment, an ActiveX code 

3 segment and a markup language segment. 
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1 17. The computer readable medium of claim 15, further comprising 

2 instructions for handling an exception when an exception occurs. 

1 18. The computer readable medium of claim 15, wherein the runtime 

2 library is implemented on a client device communicably coupled to a proxy server. 

1 19. The computer readable medium of claim 1 5, wherein the 

2 instructions for translating include instructions for translating a function call to a variable, 

3 wherein the variable is compatible with the runtime library. 

1 20. The computer readable medium of claim 1 5 , wherein the 

2 instructions for translating include instructions for translating a first variable to a second 

3 variable, wherein the second variable is compatible with the runtime library. 

1 21. The computer readable medium of claim 15, wherein the 

2 instructions for translating include instructions for translating a first function call to a 

3 second function call, wherein the second function call is compatible with the runtime 

4 library. 

1 22. The computer readable medium of claim 15, wherein the 

2 instructions for translating include instructions for translating a variable to a function call, 

3 wherein the function call is compatible with the runtime library. 

1 23. The computer readable medium of claim 15, 

2 wherein the code segment includes one or more first elements selected 

3 from the group consisting of: 
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4 digits, characters, keywords, literals, identifiers, operators, expressions, 

5 statements, variables, regular expressions, functions, arguments and programs; 

6 wherein the modified code segment includes one or more second elements 

7 selected from the group consisting of: 

8 digits, characters, keywords, literals, identifiers, operators, expressions, 

9 statements, variables, regular expressions, functions, arguments and programs; 

10 and 

1 1 wherein the second elements are compatible with the runtime library. 
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MOBILE SOFTWARE MORPHING AGENT 

ABSTRACT OF THE DISCLOSURE 
Systems and methods for extending or modifying the behavior of mobile (downloadable) 
software, such as JavaScript, HTML, and/or data that can be downloaded to a client device. 
5 One or more morphing agents are provided for translating and modifying code and data from 
a software source, such as a remote server. Each morphing agent translates and modifies one 
or more particular types of code. For example, one morphing agent may be provided for 
processing JavaScript code and another may be provided for processing HTML code and 
data. Each morphing agent typically includes a tokenizer module, a parser module and a 
10 translation module, each of which follows specific rule sets. Original software content is first 
tokenized according to a set of tokenizer rules, and subsequently parsed according to a set of 
parser rules. The parsed code is then translated according to the set of translator rules to 
produce the desired modified software content. An exception handler module is also 
provided for implementing exception rules when an exception occurs. 
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if (argumen 
newStr 



= = 2) { 



& (typeof document . layers 
cument . layers [ ' rmi layer ' ] 



"undefined" ) 
"undefined") ) 



1 



} 



document . layers [' rmi layer 1 ] . document .writeln (newStr) ; 

else 

obj . writeln (newStr) ; 

else { 

newStr = rmi_xlate (obj ) ; // for backward compatibility with hseds 
document . writeln (newStr) ; 



if (arguments . length ==2) { 
newStr = rmi_xlate (str) ; 

if (obj == document && (typeof document . layers != "undefined") 

&& (typeof document. layers ['rmilayer 1 ] != "undefined") ) 
document . layers [' rmilayer' ] . document .write (newStr) ; 



newStr = rmi_xlate (ob j ) ; // for backward compatibility with ] 
document . write (newStr ) ; 




{ 



var fullLower = f ull . toLowerCase ( ) ; 
var subLower = sub . toLowerCase () ; 
var index = fullLower . indexOf ( subLower) ; 
return index ? false : true; 



function rmi_endsWith ( full 

{ 

var fullLower = full 

d . toLowe: 
er . len< 
< 0) return fal 




function rmi_endsExactlyWith ( f ull , sub) 
{ 

var offset = full. length - sub. length; 



lex = full 
(index: 



2 



} 

/* gets the port of an URL */ 
function rmi_getPort (url) 

{ 

var host = rmi_getHost (url) ; // get "host:port" 

var begin = host . indexOf ( " : " ) ; 

if (begin == -1 || (host. length - begin) < 2) // e.g. length of ':80' 

return (rmi_getProtocol (url) == "https") ? "443" : "80" ; 

else 
{ 

return host . substring (begin+1 , host . length) ; // +1 for ':' 

} 

/* gets the protocol of an URL */ 
function rmi_get Protocol (url ) 

{ 

var index = url . indexOf ("://") ; 
return url . substring ( 0 , index) ; 

} 

/* http : //HOST/ whatever 

* return HOST 
*/ 

function rmi_getHost (url ) 
{ 

var end = url . indexOf ("://") ; 
var next = end + 3 ; 

end = url . indexOf {"/" , next); 
if (end == -1) end = url. length; 
return url . substring (next , end); 

} 

/* http: //HOSTNAME: port/ whatever 

* return HOSTNAME 
*/ 

function rmi_getHostname (url ) 

{ 

var host = rmi_getHost (url ) ; // get "host:port" 

var index = host . indexOf (":") ; 

if (index == -1) 
return host; 

else 

return host . substring ( 0 , index); 

} 

/* http : //host/FILE 

* return FILE 
*/ 

function rmi_getFile (url) 

{ 
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var end = url . indexOf ("://") ; 
var next = end + 3 ; 



end = url . indexOf ( "/ " , next); 

if (end == -1) 
return "/"; 

else 

return url . substring (end , url. length); 

} 

/* PROTOCOL: //HOST/ FILE 
* return URLRoot == PROTOCOL : //HOST 
*/ 

function rmi_getURLRoot (url) 

{ 

var protocol = rmi_getProtocol (url) ; 
var host = rmi_getHost (url ) ; 
return protocol + "://" + host 

} 

function rmi_dirname (full) 
{ 

var dir = full; 

// Remove cgi parameters (e.g. " ?kl=vl&k2=v2 . . . " ) 
// because the parameters might have '/' 

var ind = dir . indexOf ('?'); 

if ( ind >= 0 ) dir = dir . substring ( 0 , ind); 

ind = dir. lastlndexOf ( 1 / 1 ) ; // search from right 

if (ind == -1) return ""; // no slash 

if (ind == 0) return "/"; // root 

if ( rmi_endsExactlyWith (dir. substring (0, ind+1), "://") ) 
ind = dir. length; 

return dir . substring ( 0 , ind); 



/* Trim leading & ending quotes 
*/ 

function rmi_trimQuotes (str) 
{ 

var first = str . charAt ( 0 ) ; 

if (first == ' " ' ) return ( str . substring (1 , str . length-1) ) ; 
if (first == 'V') return ( str . substring ( 1 , str . length-1) ) ; 



/* Trim leading & ending spaces 
*/ 

function rmi_trim (str) 
{ 

if (typeof str == "undefined") return 
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var start = 0; 

var end = str.length; 

for (var i=0 ; i < str. length; ++i) 
{ 

if (str.charAt (i) == ' ') continue; 

start = i; 
break; 



for (var i = str . length- 1 ,- i >= 0 ; --i) 
{ 

if (str . charAt (i) == 1 ') continue; 

end = i + 1; 
break; 

} 

return str . substring (start , end) ; 



* Normalize URL 

function rmi_normalizeURL (in url) 

{ 

var url = in_url . toString ( ) ; 
var first = url . charAt ( 0 ) ; 

if (first == "" ) url = url . substring ( 1 , url. length 
var ret = url; 

if ( rmi_startsWith(url, "http://") ) 
ret = url; 

else if ( rmi_startsWith (url, "https://") ) 

ret = url; 

else if { rmi_startsWith(url, "/") ) 

ret = rmi_getURLRoot (rmi_BaseURL) + url; 

else if ( rmi_startsWith (url, "#■■) ) 

ret = document . location + url; 

else // relative 

var dir = rmi_dirname ( rmi_BaseURL) ; 
ret = dir + "/" + url; 
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* Translate a URL (in the case of form action) 

* If the incoming code is the form of location=url 

* then we return location=rmi_xlateURL (url) 

function rmi_xlateAction (action_url) 
{ 

var ret = " " ; 

var url = action_url . toString () ; 

if ( rmi_s tarts With (url , "location=") ) { 

var new_loc = url . substring (url . indexOf ("=") +1 , url. length); 

ret = "location='" + rmi_xlateURL (new_loc) + »'» ; 
} else { 

ret = rmi_xlateURL (url) ; 

} 

if (rmi_JsDebug . indexOf ( " , rmi_xlateAction, " ) != -1) 

alert ( "rmi_xlateAction: old: " + action_url + "\n" + "new: " + ret); 

return ( ret ) ; 

} 

* Translate a URL 

* Note: if url is already starts with rmi proxy url it will 

* not be translated again. 

function rmi_xlateURL (in_url) 
{ 



var ret = " " ; 

var url = in_url . toString () ; 
var first = url . charAt ( 0 ) ; 

if (first == ' " ' ) url = url . substring ( 1 , url . length- 1) ; 
if (first == 'V') url = url . substring ( 1 , url . length-1) ; 

// Ignore javascript: 

if ( rmi_startsWith (url, "javascript:") ) 
return url; 



url = rmi_normalizeURL (url) ; 

if ( rmi_startsWith (url , rmi_ProxyURL) || 

rmi_startsWith (url , rmi_SecureProxyURL) || 
rmi_endsWith (url , ".jpg") |j 
rmi_endsWith (url , ".jpeg") | | 
rmi_endsWith (url , ".gif") 

) 

{ 

return url; 

} 

/* 

* Collapse the file part of an URL 
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*/ 

var urlroot = rmi_getURLRoot (url) ; 

var file = pathCollapse (rmi_getFile (url) ) ; 

ret = urlroot + file; 

if ( rmi_startsWith(url, "https : // " ) ) 
ret = rmi_SecureProxyURL + ret; 

else 

ret = rmi_ProxyURL + ret ; 
if (rmi_FrameWrapperMode && rmi_UrlTarget == "_top") // onTop & wrapper 

mode 

ret = rmi_appendToUrl (ret , rmi_Vars); 

if (rmi_JsDebug . indexOf ( " , rmi_xlateURL , " ) != -1) 

alert ( "rmi_xlateURL : \n" + " in_url : " + in_url + "\n" + "ret: " + ret + 

"\n") ; 



return ret; 

} 

* Get original (before RMI) location property (href, host, etc) 

function rmi_getOriginal (loc , prop) 
{ 

var origUrl = "" + loc; 

var url = "" + loc; 

var index = url . indexOf ( " /rmi/ " ) ; 

var ret = " " ; 

if (index != -1) 

origUrl = url . substring ( index+5 , url . length) ; // Get string after 

"/rmi/" 

if (prop == "host") 

ret = rmi_getHostname (origUrl) + ":" + rmi_getPort (origUrl ) ; 
else if (prop == "hostname") 

ret = rmi_getHostname (origUrl) ; 
else if (prop == "port") 

ret = rmi_getPort (origUrl) ; 
else if (prop == "pathname") 
{ 

var path = rmi_getFile (origUrl ) ; 

ret = (path. indexOf ("?" ) == -1 ) ? path : path . substring ( 0 , 
path . indexOf ("?")); 

} 

else if (prop == "search") 

{ 

var path = rmi_getFile (origUrl) ; 

ret = (path. indexOf ("?") == -1) ? "" : path . substring (path . indexOf ("?") , 
path. length) ; 
} 

else // location, location. href , & all others 

ret = origUrl; 
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// Remove RMI var string (e.g. /rmivars%3f . . . ) . 
// KEEP text before AND after RMI var strings 

var rmiVarStr = " /rmivars " ; 

var rmiVarStrLen = 9; // length of "/rmivars?" for IE 

var i_rmiVarStr = ret . indexOf (rmiVarStr) ; 

var head = (i_rmiVarStr == -1) ? ret : ret . substring ( 0 , i_rmiVarStr) ; 
var tail = ""; 

if (i_rmiVarStr != -1) // RMI var string exists 

{ 

var il = ret . indexOf ( " ? " , i_rmiVarStr + rmiVarStrLen); 
var i2 = ret . indexOf ("#" , i_rmiVarStr + rmiVarStrLen); 

if (il != -1) tail = ret . substring (il , ret . length) ; 
else if (i2 != -1) tail = ret . substring ( i2 , ret . length) ; 

} 

return head + tail; 



* Get original (before RMI) document . domain property 

function rrai_getOriginalDomain ( ) 

{ 

var origUrl = "" + window . location; 
var url = origUrl; 

var index = url . indexOf ( "/rmi/ ") ; 
var ret = " " ; 



if (index != -1) 

origUrl = url . substring (index+5 , url. length); // Get string after 

" / rmi / " 

ret = rmi_getHostname (origUrl ) ; 

// Remove RMI tail string (e.g. /rmivars%3 f . . . ) 
var rmiTail = " /rmivars %3f " ; 

ret = (ret . indexOf (rmiTail) == -1) ? ret : ret . substring ( 0 , 
ret . indexOf (rmiTail) ) ; 

return ret; 

} 

* Return a frame object 

function rmi_getFrame ( win , index) 

{ 

if ( ! rmi_FrameWrapperMode) return ( win . frames [index] ) ; 



// FrameWrapperMode from here on. 



if ( (typeof index) == "number") 
{ 

if (win == top) 

return (win. frames [index+1] ) ; // +1 due to Yahoo's extra frame 

else 

else // string & other types 

return (win. frames [index] ) ; 



Get the current dimension of the RMI bar 
h = rmi_getBarDimensions ( "height " ) 
<FUTURE> w = rmi_getBarDimensions ( "width" ) 




if (top . frames . length == 0) // non-frame site 

doc = document; 

else 

{ 

// doc = top . frames [0] .document; 
return defaultRet; 

} 

if ( window. navigator. appName . toLowerCase (). indexOf ( "microsoft" ) != -1 ) 

{ 

// IE 

if (typeof doc.all.rmi_south_gif == "undefined") 
return defaultRet ; 

else 
{ 

if (dimType == "height") 

return doc . all . rmi_south_gif . of f setTop; 



if (typeof doc.rmi_south_gif == "undefined") 
return defaultRet; 
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if (dimType == "height") 

return doc . rmi_south_gif . y ; 

else 

return defaultRet; 



return defaultRet; // no match (shouldn't be here) 



* Translate the options before opening a window (e.g. window. open) 
function rmi_xlateWinOpt (options) 



var tokens = options . split {",") ; 



for (var i=0; i<tokens . length; ++i) 
{ 

var pair = tokens [i] . split (" = ") ; 
var key = rmi_trim (pair [0] ) ; 
var val = rmi_trim (pair [1] ) ; 

if (key == "height") 

{ 

var offset = rmi_getBarDimensions (key) ; 

if (val == "") val = "0"; // if no height value! 

val = "" + (parselnt (val) + offset); 

} 

if (i ! = 0) ret += " , " ; 

if (val == "") // if no value 

ret += key; 

else 

ret += key + "=" + val; 



* Open a window (using a window object from 1st argument) 

function rmi_winobj _open ( winob j , url, target, options) 

{ 

//alert (url) ; 
//alert (target) ; 
//alert (options) ; 



if (arguments . length == 2) 

win = winobj . open (rmi_xlateURL (url) ) ; 
else if (arguments . length == 3) 
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win = winobj .open(rmi_xlateURL(url) , target); 

else 

3en(rmi xlateURL (url ) , target, rmi xlateWinOpt ( options ) ) 



if (win != null) win.. 



//alert (url) ; 
//alert (target) ; 



(target) ; 
(options) ; 



if (argument 

win = window.open(rmi_xlateURL(url) ) ; 
else if (arguments. length == 2) 

win = window. open ( rmi_xlateURL (url) , target) ,- 

else 

win = window. open (rmi_xlateURL (url) , target, rmi_xlateWinOpt (options ) ) 
if (win != null) win. opener = self; 



?en_self (url) 

i(rmi_xlateURL(url) , "_self") ; 



*/ 



function rmr^getTop (wan) ^ ^ ^ 



if (top. frames. length > 1) // old 



// 
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ction rmi_replace (win, url) 
if (win == "") win = self; 

if (rmi_FrameWrapperMode) 

{ 

if (win == top) 

win . location . replace (rmi_xlateURL (url ) + rmi_Vars) ; 

else 

win . location . replace (rmi_xlateURL (url ) ) ; 

} 

else if (top . frames . length > 1) // old frame mode 

{ 

if (win == top) 

top ._rmi_bottom. location . replace (rmi_xlateURL (url ) ) ; 

else 

win. location. replace {rmi_xlateURL (url) ) ; 

} 

else // non-frame mode 

win . location . replace (rmi_xlateURL (url) ) ; 



* Handle location setting for different modes after JS translation 

* <Sample translation> 

* From: window. top .parent . location. href = url; 

* To: rmi_setLocation ( "window. top" , ". parent . location . href " , 
rmi_xlateURL (url) , window. top .parent) ; 

function rmi_setLocation ( si , s2, url, win) 
{ 

var f rameName = " " ; 
var newUrl = url ; 



if (rmi_FrameWrapperMode ) 
{ 

//@@ if (rmi_startsWith(s2, 
if ( win == top ) 



f rameName = " " ; 

newUrl = rmi_appendToUrl (url , 



// Handle topmost frames 

var aWin = eval(sl); 

var array = s2 . split (".") ; 

var head = rmi_trim (array [0] ) ; 

if (aWin == top && rmi_startsWith (head, "frames" )) 

{ 

var iO = head. indexOf ( " [ " ) ; 
var il = head. indexOf ("]") ; 

var num = 0 ; 

num = head. substring (iO+1, il) ; 
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if (num >= 0) // If a valid frame number, increment it 
{ 

array [0] = "frames [" + (++num) + "]"; 
s2 = array . j oin (".") ; 

} 

} 

} 

else // old mode 

{ 

frameName = " . _rmi_bottom" ; 
newUrl = url 

} 

var code = si + frameName + " . " + s2 + " = \ " " + newUrl + "\";"; 
eval (code) ; 

if (rmi_JsDebug . indexOf ( " , rmi_setLocation, " ) != -1) 

alert ( "rmi_setLocation : \n" + "url: " + url + "\n" + "code: " + code 

"\n") ; 

} 

* Xlate a String 

************************************************************/ 
/* 

* * If it returns a value different from str 

* rmi_xlate will return new value. 

* else (i.e. rmi_xlate_merchant returns str) 

* rmi_xlate will do regular processing 
*/ 

function rmi_xlate_merchant (str) 
{ 

// alert ( "merchant dummy function"); 
return str; 



function rmi_xlate (pStr) 
{ 

var xlatedStr = ""; 

var iSearch, iFrame, ilmg, length, startLoc, endLoc; 
var offsetl, offset2, head, src, tail; 

var str = "" + pStr; // to string to be sure 

var lowercaseStr = str . toLowerCase ( ) ; 

// 

// invoke merchant specific stuff 
// 

xlatedStr = rmi_xlate_merchant (str) ; 
if (xlatedStr != str) return xlatedStr; 

var parseStr = rmi_parseloop (str) ; 
if (parseStr != str) return parseStr; 
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// debugging block begin /////////////////////////////////// 

//xlatedStr = rmi_xlate_src_href (str) ; 

//if (parseStr != str) { 

// if (parseStr != xlatedStr) { 

// alert ( "parseStr " + parseStr + "\n xlatedStr " + xlatedStr); 
// } 

// return parseStr; 
//} 

// debugging block end /////////////////////////////////// 
return (str) ; 



function rmi_parseloop (str) 

{ 

var tagStr = str; 
var newStr = " " ; 

while (1) { 

var left, tag, right, nexttag; 
var 1 , r ; 

1 = tagStr. indexOf ( "<") ; 

//if there is no "<" sign, return tagStr 
if (1 == -1) { 

newStr = newStr + tagStr; 

//alert ("no < found in " + tagStr + »\n" + newStr); 
break; 

} 

left = tagStr . substring (0 , 1 + 1); 
r = tagStr. indexOf (">") ; 

// if there is no ">" sign, return tagStr 
if (r == -1) { 

newStr = newStr + tagStr ; 

//alert ("NO > found in " + tagStr + "\n" + newStr); 
break; 

} 

tag = tagStr . substring (1+1 , r) ; 

nexttag = tagStr . indexOf ("<" , r) ; 

if (r < 1) { 

// if " ... > .. <...>", then add upto < and 
/ / then loop back 
newStr = newStr + left; 

tagStr = tagStr . substring ( 1+1 , tagStr . length) ; 
} else if (nexttag == -1) { 

right = tagStr . substring ( r , tagStr . length) ; 

tag = rmi_xlate_src_href (tag) ; 
tag = rmi_xlate_f orm_action (tag) ; 

tag = rmi_xlate_f rameset (tag) ; // do frameset last because 

extra tags are added 

if (rmi_FrameWrapperMode) 
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tag = rmi_doTargetInFrameWrapperMode (tag) ; 

else 

tag = rmi_xlate_target (tag) ; 

newStr = newStr + left + tag + right; 
break; 
} else { 

right = tagStr . substring (r, nexttag) ; 

tag = rmi_xlate_src_href (tag) ; 
tag = rmi_xlate_f orm_action (tag) ; 

tag = rmi_xlate_f rameset (tag) ; // do frameset last because 

extra tags are added 

if (rmi_FrameWrapperMode) 

tag = rmi_doTargetInFrameWrapperMode (tag) ; 

else 

tag = rmi_xlate_target (tag) ; 

newStr = newStr + left + tag + right; 

tagStr = tagStr . substring (nexttag, tagStr . length) ; 

// newStr = newStr + "_" + left + "#" + tag + "#" + right + "_" 
/ / loop back 

} 

} 



if (str != "" ScSc newStr == "") { 
newStr = str; 

} 



if (rmi_JsDebug . indexOf ( " , rmi_parseloop , " ) != -1) 

alert ( "parseloop : \n" + "old: " + str + "\n" + "new: " + newStr); 



// debugging block begin /////////////////////////////////// 

//var lowercaseStr = str . toLowerCase ( ) ; 

//if ( (lowercaseStr . indexOf ( "src=" ) != -1 j| 

// lowercaseStr . indexOf ( "href =" ) != -1) 

// && lowercaseStr . indexOf ( "image ") == -1) 

// { 

// alert ("orig " + str + "\npars " + newStr); 

// } 

// debugging block end /////////////////////////////////// 
return newStr; 

} 

function rmi_xlate_src_href (str) 
{ 

var newStr = " " ; 

var iSearch, iFrame, ilmg, length, startLoc, endLoc; 
var offsetl, offset2, head, src, tail; 
var lowercaseStr = str . toLowerCase ( ) ; 
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iSearch = lowercaseStr . indexOf ( " src= " ) ; 
if (iSearch != -1) { 

length =4; // length of "src=" 

// should not contain IMAGE tag 

ilmg = lowercaseStr . indexOf ( "image " ) ; 

if (ilmg < iSearch && ilmg > -1) return str; 

/ / should not contain IMG tag 

ilmg = lowercaseStr . indexOf ( "img " ) ; 

if (ilmg < iSearch && ilmg > -1) return str; 

iFrame = lowercaseStr . indexOf (" frame ") ; 
if (iFrame == -1) return str; 

} else { 

iSearch = lowercaseStr . indexOf ( "href =") ; 
if (iSearch == -1) return str; 

// alert ("found href in " + str) ; 
length = 5; // length of "href=" 

} 

startLoc = iSearch + length; 

head = str . substring ( 0 , startLoc); 



offsetl = lowercaseStr . indexOf ( " ", startLoc) ; 
if (offsetl == -1) { 

offset2 = lowercaseStr . indexOf (">" , startLoc); 
if (offset2 == -1) { 

endLoc = str. length; 
} else { 

endLoc = offset2; 

} 

} else { 

endLoc = offsetl; 

} 

src = str . substring (startLoc , endLoc) ; 
tail = str . substring (endLoc , str. length); 

// Ignore 'javascript:*' & RETURN original string 

if '( rmi_startsWith (src . toLowerCase ( ) , "'javascript:") ) return (str); 
if ( rmi_startsWith (src . toLowerCase ( ) , "javascript:") ) return (str) ; 

var saved_urlTarget = rmi_UrlTarget ; // saved to be restored 

later 

if (head. toLowerCase (). indexOf ( "frame ") != -1) 

rmiJJrlTarget = ""; // <frame> will not be o: 

top 

newStr = head + rmi_xlateURL (src) + tail; 

rmi_UrlTarget = saved_urlTarget ; // restore it 
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if (rmi_JsDebug. indexOf ( " , rmi_xlate_src_href , ") 
alert { "rmi_xlate src href\n" + "old: " + str 



function rmi_xlate_f orm_action (str) 



. toLowerCase ( ) 
. indexOf ( 



if (iForm == -1) 
// alert (str) ; 



aseStr . i 
var length = 7; // length of 

iSearch = lowercas 
length = 9; // one ■ 

} 

if (iSearch == -1) retu 
var startLoc, endLoc, 



allow for extra space 



startLoc = 
head = str. 



seStr . indexOf ( " > " 
1) { 

. length; 




(startLoc, endLoc) ; 
(endLoc, str . length) ; 



rmi_xlateURL ( src ) 



Write out the 



document .write ( rmi_FrameWra; 
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* Handle a frameset tag (for top window in FrameWrapperMode ONLY) 

function rmi_xlate_f rameset (tag) 

{ 

if ( ! rmi_FrameWrapperMode) return tag; 
if (self != top) return tag; 

var lowercaseStr = tag . toLowerCase ( ) ,- 

var iOpenTag = lowercaseStr . indexOf (" frameset "); 

var iClosingTag = lowercaseStr . indexOf (" /frameset ") ; 

if (iOpenTag == -1 && iClosingTag == -1) return tag; // not frameset tag 

if (iClosingTag >= 0) // see </frameset> 

{ 

-- rmi_FramesetTagCounter ; 

// add Yahoo's </frameset> after the last frameset 

if (rmi_FramesetTagCounter == 0) 
ret = tag + " >/n</f rameset " ; 

else 

ret = tag; 

} 

else // see <frameset> 

{ 

// add Yahoo's <frameset> before the 1st frameset 

if (rmi_FramesetTagCounter == 0) 

ret = rmi_FrameWrapper + "\n<" + tag; 

else 

ret = tag; 

++ rmi_FramesetTagCounter; // count <frameset> tag 

} 

if (rmi_JsDebug . indexOf (", rmi_xlate_f rameset ," ) != -1) 

alert ( "rmi_xlate_f rameset : \n" + "old: " + tag + "\n" + "new: " + ret) ; 

return (ret) ; 

} 

function rmi_xlate_target ( str) 
{ 

var newStr = " " ; 

var iSearch, iFrame, ilmg, length, startLoc, endLoc; 
var offsetl, of f set2 , head, src, tail; 
var lowercaseStr = str . toLowerCase () ; 
var loci, loc2, loc3 ; 

if (rmi_merchant_f rames != "yes") { 

// alert ( "merchant frames not yes"); 
return str; 

} 
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loci = lowercaseStr . indexOf ( " target=\ "_top\ " " ) ; 
loc2 = lowercaseStr . indexOf ( " target=_top ") ; 
loc3 = lowercaseStr . indexOf ( "target= '_top 1 ") ; 

if (loci ! = -1) { 
iSearch = loci; 

length =13; // length of target= "_top" 

} else if (loc2 != -1) { 
iSearch = loc2 ; 

length =11; // length of target=_top 

} else if (loc3 != -1) { 
iSearch = loc3 ; 

length =13; // length of target= '_top ' 

} else { 

return str; 



startLoc = iSearch; 

endLoc = startLoc + length; 

head = str . substring (0 , startLoc); 

src = " target=\ "_rmi_bottom\ " " ; 

tail = str . substring (endLoc , str . length) ; 

newStr = head + src + tail; 

// alert ( "head " + head + "\nsrc= " + src + "\ntail " + tail) ; 
// alert ("str= " + str + "\nnew= " + newStr); 

return newStr; 



* Get a attribute value in a tag 

function rmi_getTagAttribute (tag, key) 
{ 

var loci = tag . toLowerCase ( ) . indexOf (key) ; 

var loc2 = tag . indexOf ("=" , loci) +1; // plus 1 for "= 

var first = loc2 ; 

var last = tag.length; 

if (loci == -1) return ""; 

var whitespace_trimmed = false ; 
for (var i=loc2; i<tag . length; ++i) 
{ 

var aChar = tag . charAt (i) ; 

if (aChar != 1 ' && ! whitespace_trimmed) 
{ 

first = i; 

whitespace_trimmed = true; 

} 

if (aChar == ' 1 ) 
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last=i; 

if (whitespace_trimmed) break 

} 

} 

if (first == -1) 
retTag = " " ; 

else 

retTag = tag . substring ( first , last) ; 

if (rmi_JsDebug. indexOf ( " , rmi_getTagAttribute , " ) 
{ 

var msg = "key: " + key + "\n"; 

msg += "old: " + tag + "\n"; 

msg += "ret: " + retTag + "\n"; 

msg += "first: " + first + "\n"; 

msg += "last: " + last + "\n"; 
alert ( "rmi_getTagAttribute : \n" + msg); 



return retTag; 



Set a new attribute value in a tag 
nction rmi_setTagAttribute ( tag , key, newval) 
var loci = tag . toLowerCase (). indexOf (key) ; 

var loc2 = tag. indexOf ( "=" , loci) +1; // plus 1 for 

var first = loc2 ; 

var last = tag. length; 

if (loci == -1) return tag; 

var whitespace_trimmed = false; 
for (var i=loc2; i<tag. length; ++i) 
{ 

var aChar = tag. charAt (i) ; 

if (aChar != 1 1 && ! whitespace_trimmed) 



if (aChar == ' ' ) 
{ 

last=i ; 

if (whitespace_trimmed) break 



if (first == -1) 
retTag = tag,- 

else 
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retTag = tag . substring ( 0 , first) + newval + tag . substring ( last , 
tag . length) ; 

if (rmi_JsDebug. indexOf ( " , rmi_setTagAttribute , " ) != -1) 
{ 

var msg = "key: " + key + "\n"; 

msg += "newval: " + newval + "\n"; 

msg += "old: " + tag + "\n"; 

msg += "new: " + retTag + "\n"; 
alert ( "rmi_setTagAttribute : \n" + msg); 

} 

return retTag; 

} 

* Handle the target within a tag in a frame wrapper mode 

function rmi_doTargetInFrameWrapperMode (tagStr) 
{ 

if ( ! rmi_FrameWrapperMode ) return tagStr ; 



var retTag = tagStr; 

// ignore frames (will not be on top) 

if (rmi_startsWith (tagStr . toLowerCase () , "frame")) return retTag; 

if (rmi_UrlTarget == "_top") // onTop & wrapper mode - force to encode 

ALL 

{ 

retTag = rmi_encodeTarget (tagStr, "href", true) ; 
retTag = rmi_encodeTarget (retTag, "action", true); 

} 

else // encode only if target==_top 

{ 

retTag = rmi_encodeTarget (tagStr , "href", false) ; 
retTag = rmi_encodeTarget (retTag, "action", false); 

} 

if (rmi_JsDebug . indexOf ( " , rmi_doTargetInFrameWrapperMode , " ) != -1) 

alert ( "rmi_doTargetInFrameWrapperMode : \n" + "old: " + tagStr + "\n" + 
"new: " + retTag) ; 

return retTag; 

} 

* Encode a target into a URL within a tag 

function rmi_encodeTarget (tagStr, key, force) 
{ 

var retTag = tagStr; 

var oldUrl = rmi_getTagAttribute (tagStr , key) ; 
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if ( rmi_endsExactlyWith (oldUrl , rmi_Vars) ) // already encoded 

return retTag 

if (! rmi_startsWith (oldUrl, rmi_ProxyURL) && 

! rmi_startsWith (oldUrl , rmi_S ecur e ProxyURL ) ) 

return retTag // not translated (e.g. 

gif) 

if (force) // force to rewrite 

{ 

retTag = rmi_setTagAttribute (tagStr, key, oldUrl + rmi_Vars); 

} 

else 

{ 

// If target==_top 

var targetVal = rmi_getTagAttribute (tagStr , "target") ; 
targetVal = rmi_trimQuotes (targetVal) ; 

if (targetVal == "_top") 

{ 

retTag = rmi_setTagAttribute (tagStr , key, oldUrl + rmi_Vars ) ; 

} 

} 

if (rmi_JsDebug . indexOf ( " , rmi_encodeTarget , " ) != -1) 

alert ( "rmi_encodeTarget\n" + "old: " + tagStr + "\n" + "new: " + 

retTag) ; 

return retTag; 

} 

* Append a string to a URL if no such string at the end yet 

function rmi_appendToUrl (url , str) 
{ 

var urlStr = "" + url; 
var ret; 

if ( rmi_endsExactlyWith (urlStr, str) ) // See 

/rmivars%3f . . . 

ret = urlStr; 

else if ( rmi_endsExactlyWith (urlStr , unescape ( str ) ) ) // See 

/ rmivars? . . . 
{ 

var array = urlStr . split (unescape ( str )) ; 
ret = array [0] + str; 

} 

else 

ret = urlStr + str; 
return ret ; 

} 

* Collapse a path (i.e. remove parts of a path like "dir/. .") 
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= path. split ( "/") ; 
= new Array ( ) ,- 
:r = 0; 



for (var i = 1 ; i < slist . length; ++i) 



it 



[i] 



if (item != " . . ") 

stack [counter++] 

else if (counl 
--counter 



0) 



//alert ("mp 



path + "\nmpath " + "/" 
.. join( "/") ) ; 



. eval (code) ; 




etTimeout (code, msec) 
Timeout (code , msec) ; 



rmi_getCookie (cookie) 



// alert ("rmi_getCookie:\n" 
rmi CurrentCookies); 



" \nrmi_cookies : 



rmi CurrentCookies == "undi 
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// Set RMI cookie @ the 

var serverCookie = rmi_ 
if (serven 



ar newCool 
ar newCookie 
2 (serverCook 



side 

-erCookie ( 



:/rmi; domain=" + rr 
" + (new DateO ) .getTimeO 
newCookieTail ; 



document . cookie = newCookie; 

// Set rmi_CurrentCookies @ the clie 



var clientCookie = rmi_xlateClientCook 
if (clientCookie == "") return; 



if (typeof rmi_Currei 
rmi CurrentCookies 



undf 
lookie 



for (var i 



0; i < list. length; ++i) 



hostname ' ) ; 
() , domain . toLowerCase () ) ) 




// NOTE: ar 



's length > 2 if 
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if (key == "domai: 
{ 

var domainVal = rmi_trira (array [1] ). toLowerCase () ,- 

if ( rmi_verif yCookieDomain (domainVal) ) 

{ 

} 

else 



if (key == "path") continue; 
if (key == "expires") contin 
if (key == "secure") continue 

if (i != 0) ret += "; " 
ret += array . join ("=" ) 




for (var i = 0; i < list. length; ++i) 

{ 

// NOTE: array's length > 2 if there are more than 2 '=' 

var array = list [i] . split (" = ") ; 

if (array. length < 1) continue; 

var key = rmi_trim (array [0] ). toLowerCase () ; 

if (key == "domain") 
{ 

hasDoraain = true; 
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var domainVal = rmi_trim (array [1] ). toLowerCase () ; 
if ( ! rmi_verif yCookieDomain (domainVal) ) 

return ""; // BAD domain - RETURN 



} 

if (key == "path") hasPath = true; 

if (i != 0) ret += 
ret += array . j oin (" = " ) 

} 

if (! hasDomain) ret += " ; domain=" + rmi_Hostname ; 
if (! hasPath) ret += " ; path=" + rmi_Pathname ; 

return ret; 



// --> 
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e - f 



Appendix Bl 

/* 

* Lexer. 

* Copyright (c) 1998-1999 New Generation Software (NGS) Oy 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 

* Library General Public License for more details. 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA. 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www. gnu.org/copyleft/gpl .html . 
*/ 

/************************************************************ 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to: 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 342 0 Central Expressway, Santa Clara, California U.S.A. 

var rjs_VTAB = '\013'; // @@ For IE 



/* 

* $Source: /usr/local/cvsroot/ngs/ j s/ j sc/lexer . j s , v $ 

* $Id: lexer. js,v 1.9 1999/01/11 08:56:30 mtr Exp $ 
*/ 

/* 

* Global functions. 
*/ 

function JSC$lexer (stream) 

{ 
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var ch, ch2 ; 



JSC$token_value = null; 

while ( (ch = stream. readByte ()) != -1) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

if (ch == '\n') 
{ 

JSC$linenum++ ; 
continue ; 



if ( JSC$lexer_is_white_space (ch) ) 
continue ; 

JSC$token_linenum = JSC$linenum; 

if (ch == '/' JSC$lexer_peek_char (stream) = = '*•) 

{ 

/* Multi line comment. */ 
stream . readByte (); 

while ( (ch = stream . readByte ()) != -1 

&& (ch != '*• || JSC$lexer_peek_char (stream) != '/')) 
if (ch == ' \n' ) 
JSC$linenum++ ; 

/* Consume the peeked '/' character. */ 
stream. readByte (); 

} 

else if ((ch == '/' JSC$lexer_peek_char (stream) == '/') 

|| (ch == '#' && JSC$lexer_peek_char (stream) == '!')) 

{ 

/* Single line comment. */ 

while ( (ch = stream . readByte ()) != -1 && ch != ' \n ' ) 

if (ch == ' \n' ) 
JSC$ linenum++ ; 

} 

else if (ch == 1 " ' | | ch == ' \ ' • ) 

{ 

/* String constant. */ 

JSC$token_value = JSC$lexer_read_string (stream, "string", ch) ; 
return JSC$t STRING ; 



/* Literals. */ 

else if (ch == '=' && JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte (); 

if ( JSC$lexer_peek_char (stream) == '=') 
{ 

stream. readByte (); 
return JSC$tSEQUAL; 

} 

return JSC$tEQUAL; 
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else if (ch == 1 ! ' JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte (); 

if (JSC$lexer_peek_char (stream) == '=') 
{ 

stream. readByte (); 
return JSC$tSNEQUAL; 

} 

return JS C $ tNE QUAL ; 

} 

else if (ch == '<' && JSC$lexer_peek_char (stream) == '=') 
{ 

stream. readByte ( ) ,- 
return JSC$tLE; 

} 

else if (ch == '>' && JSC$lexer_peek_char (stream) == '=') 
{ 

stream. readByte ( ) ; 
return JSC$tGE; 

} 

else if (ch == 1 & ' JSC$lexer_peek_char (stream) == ' & 1 ) 
{ 

stream. readByte (); 
return JSC $t AND; 

} 

else if (ch == ' | ' && JSC$lexer__peek_char (stream) == ' | ') 
{ 

stream. readByte (); 
return JSC$tOR; 

} 

else if (ch == '+' && JSC$lexer_peek_char (stream) == '+') 
{ 

stream. readByte (); 
return JSC$tPLUSPLUS ; 

} 

else if (ch == ' - ' && JSC$ lexer_peek_char (stream) == 1 - ' ) 
{ 

stream. readByte (); 
return JSC$tMINUSMINUS ; 

} 

else if (ch == '*' && JSC$lexer_peek_char (stream) == '=') 
{ 

stream. readByte (); 
return JSC$tMULA; 

} 

else if (ch == '/' JSC$lexer_peek_char (stream) == '=') 
{ 

stream. readByte (); 
return JSC$tDIVA; 

} 

else if (ch == '%' JSC$lexer_peek_char (stream) == '=') 

{ 

stream. readByte ( ) ; 
return JSC$tMODA; 

} 

else if (ch == '+' JSC$lexer_peek_char (stream) == '=') 
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{ 

stream. readByte (); 
return JSC $t ADDA; 

} 

else if (ch == '-' && JSC$ lexer_peek_char (stream) == '=') 
{ 

stream. readByte () ; 
return JSC$tSUBA; 

} 

else if (ch == '&' && JSC$lexer_peek__char (stream) == ' = ') 
{ 

stream. readByte (); 
return JSC $t AND A; 

} 

else if (ch == && JSC$lexer_peek_char (stream) == ' = ') 

{ 

stream . readByte (); 
return JSC$tXORA; 

} 

else if (ch == 1 | ' && JSC$lexer_peek_char (stream) == ' =') 

{ 

stream. readByte (); 
return JSC$tORA; 

} 

else if (ch == '<' && JSC$lexer_peek_char (stream) == '<') 
{ 

stream . readByte (); 

if (JSC$lexer_peek_char (stream) == '=■) 
{ 

stream . readByte (); 
return JSC$tLSIA; 

} 

else 

return JSC$tLSHIFT; 

} 

else if (ch == '>' JSC$lexer_peek_char (stream) == '>') 

{ 

stream . readByte (); 

ch2 = JSC$lexer_peek_char (stream) ; 
if (ch2 == '=') 
{ 

stream. readByte ( ) ; 
return JSC$tRSIA; 

} 

else if (ch2 == ' > 1 ) 

{ 

stream. readByte (); 

if ( JSC$lexer _peek_char (stream) == ' = ') 
{ 

stream. readByte (); 
return JSC$tRRSA; 

} 

else 

return JSC$tRRSHIFT ; 

} 

else 

return JSC$tRSHIFT; 
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/* Identifiers and keywords. */ 
else if ( JSC$lexer_is_identif ier_letter (ch) ) 
{ 

/* An identifier. */ 

//@@ var id = String . fromCharCode (ch) ; 
var id = "" + ch; 

while ( (ch = stream . readByte ()) != -1 

&& (JSC$lexer_is_identifier_letter (ch) 
| [ JSC$lexer_is_decimal_digit (ch) ) ) 
id += ch; I l@@ id. append (File . byteToString (ch) ) ; 

stream. ungetByte (ch) ; 

/* Keywords. */ 
if (id == "break") 

return JSC$tBREAK; 
else if (id == "continue") 

return JSC$tCONTINUE ; 
else if (id == "delete") 

return JSC$tDELETE; 
else if (id == "else") 

return JSC$tELSE; 
else if (id == "for") 

return JSC$tFOR; 
else if (id == "function") 

return JSC$tFUNCTION; 
else if (id == "if") 

return JSC$tIF; 
else if (id == "in") 

return JSC$tIN; 
else if (id == "new") 

return JSC$tNEW; 
else if (id == "return") 

return JSC$ tRETURN ; 
else if (id == "this") 

return JSC$tTHIS; 
else if (id == "typeof") 

return JSC$tTYPEOF; 
else if (id == "var") 

return JSC$tVAR; 
else if (id == "void") 

return JSC$tVOID; 
else if (id == "while") 

return JSC$tWHILE; 
else if (id == "with") 

return JSC$tWITH; 

/* 

* Future reserved keywords (some of these is already in use 

* in this implementation) . 
*/ 

else if (id == "case") 

return JSC$tCASE; 
else if (id == "catch") 
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return JSC$tCATCH; 
else if (id == "class") 

return JSC$tCLASS; 
else if (id == "const") 

return JSC$tCONST; 
else if (id == "debugger") 

return JSC$tDEBUGGER; 
else if (id == "default") 

return JSC$tDEFAULT ; 
else if (id == "do") 

return JSC$tDO; 
else if (id == "enum") 

return JSC$tENUM; 
else if (id == "export") 

return JSC$tEXPORT; 
else if (id == "extends") 

return JSC$tEXTENDS ; 
else if (id == "finally") 

return JSC$t FINALLY ; 
else if (id == "import") 

return JSC$tIMPORT; 
else if (id == "super") 

return JSC$tSUPER; 
else if (id == "switch") 

return JSC$tSWITCH ; 
else if (id == "throw") 

return JSC$tTHROW; 
else if (id == "try") 

return JSC$tTRY; 



/* Null and boolean literals. */ 
else if (id == "null") 

return JSC$tNULL; 
else if (id == "true") 

return JSC$tTRUE; 
else if (id == "false") 

return JSC$tFALSE; 
else 

{ 

/* It really is an identifier. */ 
JSC$token_value = id; 
return JSC $t IDENTIFIER; 




/* Character constants. */ 

else if (ch == '#■ JSC$lexer_peek_char (stream) == 'V') 

{ 

/* Skip the starting '\'' and read more. */ 
stream. readByte (); 



ch = stream. readByte () ; 
if (ch == '\\') 
{ 

JSC$token_value 

= JSC$lexer_read_backslash_escape (stream, 0, "character"); 
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if (stream. readByte () != '\'') 

error ( JSC$f ilename + ":" + JSC$linenum.toString () 
+ ": malformed character constant"); 

} 

else if ( JSC$lexer_peek_char (stream) == ' \' ') 
{ 

stream. readByte (); 
JSC$token_value = ch; 

} 

else 

error (JSC$f ilename + ":" + JSC$linenum. toString () 
+ ": malformed character constant") ; 

return JSC$ t INTEGER; 



/* Octal and hex numbers. */ 
else if (ch == ' 0 ' 

&& JSC$lexer_peek_char (stream) 

&& JSC$lexer_peek_char (stream) 

&& JSC$lexer_peek_char (stream) 

{ 

JSC$token_value = 0; 
ch = stream. readByte (); 
if (ch == 'x' 1| ch == 'X' ) 
{ 

ch = stream. readByte (); 
while ( JSC$lexer_is_hex_digit (ch) ) 
{ 

JSC$token_value *= 16; 

JSC$token_value += JSC$lexer_hex_to_dec (ch) ; 
ch = stream. readByte (); 

} 

stream. ungetByte (ch) ; 

} 

else 

{ 

while ( JSC$lexer_is_octal_digit (ch) ) 
{ 

JSC$token_value *= 8; 
JSC$token_value += ch - ' 0 ' ; 
ch = stream. readByte (); 

} 

stream. ungetByte (ch) ; 

} 

return JSC$t INTEGER; 



/* Decimal numbers. */ 

else if ( JSC$lexer_is_decimal_digit (ch) 
|| (ch == ' . ' 

ScSc JSC$lexer_is_decimal_digit ( 

JSC$lexer_peek_char (stream) ) ) ) 

{ 

var is_float = false ; 

var buf = new String ( File . byteToString (ch) ) ; 
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var accept_dot = true; 



if (ch == ' . • ) 

{ 

/* 

* We started with ' . 1 and we know that the next character 

* is a decimal digit (we peeked it) . 
*/ 

is_float = true; 

ch = stream. readByte (); 

while ( JSC$lexer_is_decimal_digit (ch) ) 
{ 

buf += ch; I l@@ buf . append (File . byteToString (ch) ) ; 
ch = stream . readByte (); 

} 

accept_dot = false; 

} 

else 

{ 

/* We did start with a decimal digit. */ 
ch = stream. readByte () ; 

while ( JSC$lexer_is_decimal_digit (ch) ) 
{ 

buf += ch; //@@ buf. append (File . byteToString (ch) ) ; 
ch = stream. readByte (); 

} 



if ( (accept_dot && ch == 1 . ' ) 
|| ch == 'e' || ch == ' E ' ) 

{ 

is_float = true; 

if (ch == ' . ' ) 

{ 

buf += ch; //@@ buf. append (File . byteToString (ch) ) ; 
ch = stream. readByte () ; 

while ( JSC$lexer_is_decimal_digit (ch) ) 
{ 

buf += ch; I l@@ buf. append ( File . byteToString (ch) ) 

ch = stream. readByte (); 

} 

} 

if (ch == 'e' || ch == 'E' ) 

{ 

buf += ch; I /@@ buf. append (File . byteToString (ch) ) ; 

ch = stream . readByte (); 
if (ch == 1 +' || ch == 1 - ' ) 

{ 

buf += ch; / l@@ buf. append (File . byteToString (ch) ) 

ch = stream. readByte (),- 

} 

if ( ! JSC$lexer_is_decimal_digit (ch) ) 

error ( JSC$f ilename + ":" + JSC$linenum . toString () 
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+ ": malformed exponent part in a decimal literal") ; 

while ( JSC$lexer_is_decimal_digit (ch) ) 
{ 

buf += ch; //@@ buf. append (File . byteToString (ch) ) ; 

ch = stream. readByte (); 

} 

} 

} 

/* Finally, we put the last character pack to the stream. */ 
stream. ungetByte (ch) ; 

if (is_float) 

{ 

JSC$token_value = parseFloat (buf) ; 
return JSC$tFLOAT; 

} 

JSC$token_value = parselnt (buf) ; 
return JSC$ t INTEGER; 



/* Just return the character as-is. */ 
else 

return ch; 

} 

/* EOF reached. */ 
return JSC$tEOF; 

} 



/* 

* Help functions . 
*/ 

function JSC$lexer_peek_char (stream) 

{ 

var ch2 = stream . readByte (); 
stream. ungetByte (ch2) ; 

return ch2 ; 

} 



function JSC$lexer_is_identif ier_letter (ch) 
{ 

return ( ( ' a' <= ch && ch <= ' z ' ) | | ( 'A' <= ch ch <= ' Z 1 ) 

|| Ch == '$' || Ch == •_' ) ; 

} 



function JSC$lexer_is_octal_digit (ch) 
{ 

return ('0' <= ch && ch <= '7'); 

} 
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function JSC$lexer_is_decimal_digit (ch) 
{ 

return '0' <= ch && ch <= '9'; 

} 



function JSC$lexer_is_hex_digit (ch) 

{ 

return (('0' <= ch && ch <= '9') 

|| ( 'a' <= ch ch <= ' f ! ) 
|i ( ' A ' <= ch ScSc ch <= ' F 1 ) ) ; 



function JSC$lexer_is_white_space (ch) 
{ 

//@@ return (ch == 1 ' | | ch == ' \t' 



return (ch == ' ' | | ch == <\t' | | ch == r j s_VTAB | I ch ■■ 
|| ch == '\f " || ch == '\n' ) ; 



function JSC$lexer_hex_to_dec (ch) 
{ 

return (('0' <= ch && ch <= '9') 
? ch - 1 0 1 

: ( ( 1 a ' <= ch ScSc ch <= ' f ' ) 
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10 



ch 
ch 



'A' ) ) ; 



function JSC$lexer_read_backslash_escape (stream, possible_start , name) 
{ 

var ch = stream. readByte () ; 
if (ch == 'n' ) 



ch 




\n' , 




else 


if 


(ch 


= = 't- 


ch 




\f , 




else 


if 


(ch 




ch 


= r j s_VTAB; 


else 


if 


(ch 


== >b' 


ch 




\b' 




else 


if 


(ch 




ch 




\r' 




else 


if 


(ch 


= = If! 


ch 




\f ' 




else 


if 


(ch 


== 1 a 1 


ch 




\a' 




else 


if 


(ch 


== '\\ 


ch 




W 




else 


if 


(ch 




ch 
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else if (ch == ' \ ' ' ) 

ch = ' \ ' ' ; 
else if (ch == ' " ' ) 

ch = 

else if (ch == 1 x ' ) 
{ 

/* HexEscapeSequence . */ 
var cl, c2 ; 

cl = stream. readByte () ; 
c2 = stream . readByte (); 

if (cl == -1 || c2 == -1) 
JSC$lexer_eof_in_constant 

if ( ! JSC$lexer_is_hex_digit 
error (JSC$ filename + ":" 
+ " : \\x used with 



(possible_start , name) ; 

(cl) || ! JSC$lexer_is_hex_digit (c2)) 
+ JSC$linenum . toString () 
no following hex digits"); 



ch = (JSC$lexer_hex_to_dec (cl) << 4) + JSC$lexer_hex_to_dec (c2) ; 

} 

else if (ch == ' u 1 ) 
{ 

/* UnicodeEscapeSequence . */ 
var cl, c2, c3 , c4; 



cl = stream. readByte (); 

c2 = stream. readByte (); 

c3 = stream. readByte () ; 

c4 = stream. readByte (); 

if (cl == -1 | ! c2 == -1 
JSC$lexer_eof_in_const; 



|| c3 == -1 || c4 == -1) 
nt (possible_start , name) ; 



if ( ! JSC$lexer_is_hex_digit (cl) || ! JSC$lexer_is_hex_digit (c2) 

|| ! JSC$lexer_is_hex_digit (c3) || ! JSC$ lexer_is_hex_digit (c4)) 
error ( JSC$f ilename + ":" + JSC$linenum. toString () 
+ ": \\u used with no following hex digits") ,- 



ch = ( (JSC$lexer_hex_to_dec (cl) << 12) 
+ ( JSC$lexer_hex_to_dec (c2) << 8) 
+ ( JSC$lexer_hex_to_dec (c3) << 4) 
+ JSC$lexer_hex_to_dec (c4) ) ; 

} 

else if ( JSC$lexer_is_octal_digit (ch) ) 
{ 

var result = ch - ' 0 1 ,- 
var i = 1 ; 



if (ch == ' 0 ' ) 

/* Allow three octal digits after '0'. */ 
i = 0; 

ch = stream. readByte () ; 

while (i < 3 && JSC$ lexer_is_octal_digit (ch) ) 
{ 

result *= 8; 
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result += ch - ' 0 ' ; 

ch = stream. readByte (); 



stream. ungetByte (ch) ; 
ch = result ; 



if (ch == -1) 

error ( JSC$f ilename + ":" + JSC$linenum. toString () 
+ " : unterminated " + name) ; 

JSC$warning (JSC$f ilename + ":" + JSC$ linenum . toString () 
+ ": warning: unknown escape sequence ~\\" 
+ File .byteToString (ch) + "'"),- 

} 

return ch; 



function JSC$lexer_read_string (stream, name, ender) 

{ 

var str = new String (""); 
var done = false, ch; 

var possible_start_ln = JSC$linenum; 
var warned_line_terminator = false; 

while ( ! done) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

ch = stream. readByte (); 
if (ch == 1 \n' ) 
{ 

if ( JSC$warn_strict_ecma && ! warned_line_terminator ) 

{ 

JSC$warning (JSC$f ilename + ":" + JSC$linenum . toString () 

+ " : warning: ECMAScript don't allow line terminators 

+ name + " constants") ; 
warned_line_terminator = true; 

} 

JSC$linenum++; 

} 

if (ch == -1) 

JSC$lexer_eof_in_constant (possible_start_ln, name) ; 

else if (ch == ender) 

done = true; 
else 

{ 

if (ch == '\\') 
{ 

if ( JSC$lexer_peek_char (stream) == '\n') 
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{ 

/* 

* Backslash followed by a newline character. Ignore 

* them both. 
*/ 

stream. readByte (); 
JSC$linenum++ ; 
continue ; 

} 

ch = JSC$lexer_read_backslash_escape (stream, possible_start_ln, 

name) ; 

} 

str += ch; //@@ str. append (ch) ; 

} 



return str; 

} 



function JSC$lexer_read_regexp_constant (stream) 
{ 

/* Regexp literal. */ 

var source = JSC$lexer_read_regexp_source (stream) ; 

/* Check the possible flags. */ 
var flags = new String (""); 

while ( (ch = JSC$lexer_peek_char (stream)) == 'g' || ch == 'i') 
{ 

stream. readByte (); 

flags += ch; //@@ flags. append ( File . byteToString (ch) ) ; 

} 

/* Try to compile it. */ 
var msg = false; 
var result; 

//@@ 

result = new RegExp (source, flags) ; 

try 

{ 

result = new RegExp (source, flags) ,- 

} 

catch (msg) 

{ 

var start = msg . lastlndexOf (":"); 

msg = ( JSC$f ilename + ":" + JSC$token_linenum. toString () 
+ ": malformed regular expression constant:" 
+ msg.substr (start + 1)); 

} 

***/ 

if (msg) 

error (msg) ; 
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/* Success. */ 
return result ,- 



unction JSC$lexer_read_regexp_source (stream) 

var str = new String (""); 
var done = false, ch; 

var possible_start_ln = JSC$linenum; 
var warned_line_terminator = false; 
var name = "regular expression"; 

while ( ! done) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

ch = stream. readByte (); 

if (ch == '\n' ) 

{ 

if ( JSC$warn_strict_ecma && ! warned_line_terminator ) 
{ 

JSC$warning ( JSC$f ilename + ":" + JSC$linenum. toString () 
+ ": warning: ECMAScript don't allow line 11 
+ "terminators in " + name + " constants") ; 

warned_line_terminator = true; 

} 

JSC$linenum++; 

} 

if (ch == -l) 

JSC$lexer_eof _in_constant (possible_start_ln, name) ; 

else if (ch == ' / • ) 

done = true; 
else 

{ 

if (ch == -W) 
{ 

ch = stream. readByte (); 
if (ch == 1 \n' ) 

{ 

/* 

* Backslash followed by a newline character. Ignore 

* them both. 
*/ 

JSC$linenum++ ; 
continue ; 

} 

if (ch == -1) 

JSC$lexer_eof_in_constant (possible_start_ln, name) ; 

/* Handle the backslash escapes. */ 
if (ch == ' f ' ) 
ch = ' \f ' ,- 
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else 


if (ch == ' n ' ) 




ch 






else 


if (ch == 'r' ) 




ch 


= '\r'; 




else 


if (ch = = 'f ) 




ch 


= '\f ; 




else 


if (ch == ' V ) 




ch 


= rjs_VTAB; 


II®® 



from original codes 



else if (ch == 
{ 

/* SourceCharacter. */ 
ch = stream . readByte () ; 
if (ch == -1) 

JSC$lexer_eof_in_constant (possible_start_ln, name) ; 

if (ch == ' \n' && JSC$warn_strict_ecma) 

JSC$warning (JSC$ filename + ":" + JSC$ linenum . toString () 
+ ": warning: ECMAScript don't allow line 
termiantor after \\c in regular expression constants"); 



/* 



*/ 

str 



else if (ch 



Append the source-character escape start, 
will be appended later. 



Il@@ str. append ("\\c"); 
|| ch == 'x' || ch == ' 0 ' ) 



/* These can be handled with the read_backslash_escape ( ) . */ 
stream. ungetByte (ch) ; 

ch = JSC$lexer_read_backslash_escape (stream) ; 



else 
{ 



Nothing special. Leave it to the result as-is. 
The regular expression backage will handle it. 



stream. ungetByte (ch) ; 
ch = '\\- ; 



str += ch; 



str. append (File . byteToString (ch) ) ; 



return str; 



function JSC$lexer_eof _in__constant (possible_start , name) 

{ 

var msg = ( JSC$f ilename + ":" + JSC$linenum. toString () 
+ ": unterminated " + name + " constant") ; 

if (possible_start > 0) 
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//@@ rasg += (System. lineBreakSequence 
msg += ("\n" 

+ JSC$ filename + " : " + possible_start . toString () 

+ " : possible real start of unterminated " + name + " constant" 

rror (msg) ; 



/* 

Local variabl< 

mode : c 

End: 

*/ 



/* 

* Parser. 

* Copyright (c) 1998 New Generation Software (NGS) Oy 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 



o 
I1J 

W 



This library is free software; you can redistribute it and/or 
modify it under the terms of the GNU Library General Public 
as published by the Free Software Foundatio 
2 of the License, or (at your option) any 

This library is distributed in the hope that it will be useful, 
but WITHOUT ANY WARRANTY; without even the implied warranty of 
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the GNU 
Library General Public License for more details. 



have received a copy of t 
* License along with this library; if 
*p * Software Foundation, Inc., 59 Temple Pi. 

f!l * MA 02111-1307, USA 



/* 

* The GNU Library General Public 

* http://www.gnu.org/copyleft/gpl 
*/ 

/********************************* 



* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 
q * legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 



/* 

* $Id: parser. js,v 1.26 1998/10/25 15:25:21 ratr Exp $ 
*/ 

/* 

* Global functions. 
*/ 

function JSC$parser_reset () 
{ 

JSC$f unction = null; 
JSC$global_stmts = null; 

JSC$nested_function_declarations = null; 
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function JSC$parser_parse (stream) 
{ 

JSC$linenum = 1; 
JSC$ filename = stream. name; 
JSC$ functions = new Array () ; 
JSC$global_stmts = new Array (); 

JSC$nested_function_declarations = new Array ( ) ,- 
JSC$anonymous_function_count = 0 ; 
JSC$parser_peek_token_valid = false; 
JSC$num_tokens = 0 ; 

JSC$num_arguments_identif iers = 0; 
JSC$num_missing_semicolons = 0; 

if ( JSC$verbose) 

JSC$message ("jsc: parsing"); 

while (JSC$parser_peek_token (stream) != JSC$tEOF) 
if ( ! JSC$parser_parse_source_element (stream)) 
{ 

JSC$parser_syntax_error (); 

return false; / / @@ avoid infinite loop 

} 



if (JSC$verbose) 
{ 

var msg = ("jsc: input stream had " + (JSC$linenum - 1) .toString ( 
+ " lines, " + JSC$num_tokens . toString () + " tokens") ; 

if ( JSC$num_missing_semicolons > 0) 

msg += (", " + JSC$num_missing_semicolons . toString () 
+ " missing semicolons ") ; 

JSC$message (msg) ; 

} 

} 

/* 

* General help functions. 
*/ 

function JSC$parser_syntax_error () 
{ 

error ( JSC$f ilename + ":" + JSC$linenum. toString () + ": syntax error 1 

} 

/* All warnings are reported through this function. */ 

function JSC$warning (line) 

{ 

rj s_warn (line) ; //@@ System . stderr . writeln (line); 

} 

/* All messages are reported throught this function. */ 
function JSC$message (line) 
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r j s_inf o (line) ; //@@ System . stderr . writeln (line); 

} 



function JSC$parser_get_token (stream) 

{ 

JSC$num_tokens++ ; 
var token; 

if ( JSC$parser_peek_token_valid) 

{ 

JSC$parser_peek_token_valid = false; 

JSC$parser_token_value = JSC$parser_peek_token_value ; 
JSC$parser_token_linenum = JSC$parser_peek_token_linenum; 
token = JSC$parser_peek_token_token; 

} 

else 
{ 

token = JSC$ lexer (stream) ; 
JSC$parser_token_value = JSC$token_value ; 
JSC$parser_token_linenum = JSC$token_linenum ; 

} 

if (token == JSC$t IDENTIFIER JSC$parser_token_value == "arguments 
JSC$num_arguments_identif iers++; 

return token; 

} 



function JSC$parser_peek_token (stream) 

{ 

if ( JSC$parser_peek_token_valid) 

return JSC$parser_peek_token_token ; 
else 

{ 

JSC$parser_jpeek_token_token = JSC$ lexer (stream) ; 
JSC$parser_peek_token_value = JSC$token_value; 
JSC$parser_peek_token_linenum = JSC$token_linenum; 
JSC$parser_peek_token_valid = true; 
return JSC$parser_peek_token_token; 

} 

} 



function JSC$parser_get_semicolon_asci (stream) 
{ 

var token = JSC$parser_peek_token (stream) ; 

if (token == ' ; ' ) 
{ 

r j s_Tokens . push (";"); / / @@ 

/* Everything ok. It was there. */ 
return JSC$parser_get_token (stream) ; 

} 
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/* No semicolon. Let's see if we can insert it there. */ 
if (token == ' } 1 

| | JSC$parser_token_linenum < JSC$parser_peek_token_linenum 

| | token == JSC$tEOF) 

{ 

r j s_Tokens .push ( " ; " ) ; //@@ 

/* Ok, do the automatic semicolon insertion. */ 
if ( JSC$warn_missing_semicolon) 

JSC$warning ( JSC$f ilename + ":" + JSC$parser_token_linenum. toString () 
+ ": warning: missing semicolon") ; 
JSC$num_missing_semicolons++ ; 
return ' ; ' ; 

} 

/* Sorry, no can do. */ 
JSC$parser_syntax_error (); 

} 



function JSC$parser_expr_is_lef t_hand_side (expr) 
{ 

return (expr.etype == JSC$EXPR_CALL 



expr 


etype 


== JSC$EXPR_ 


_OBJECT_PROPERTY 


expr 


etype 


== JSC$EXPR~ 


"object_array 


expr 


etype 


== JSC$EXPR_ 


[new 


expr 


etype 


== JSC$EXPR_ 


[this 


expr 


etype 


== JSC$EXPR_ 


^identifier 


expr 


etype 


== JSC$EXPR_ 


"float 


expr 


etype 


== JSC$EXPR_ 


[integer 


expr 


etype 


== JSC$EXPR_ 


_STRING 


expr 


etype 


== JSC$EXPR_ 


_REGEXP 


expr 


etype 


== JSC$EXPR_ 


_ARRAY_IN IT I AL I Z ER 


expr 


etype 


== JSC$EXPR_ 


_NULL 


expr 


etype 


== jsc$expr" 


TRUE 


expr 


etype 


== jsc$expr] 


_FALSE) ; 



function JSC$parser_parse_source_element (stream) 
{ 

r j s_Tokens . reset ( ) ; / /@@ 

if ( JSC$parser_parse_function_declaration (stream) ) 
{ 

rj s_Stmts .push ( r j s_Tokens . str ( ) ) ; //@@ save one statement 
return true; 

} 

rj s_Tokens . reset () ; //@@ 

var stmt = JSC$parser_parse_stmt (stream) ; 

if (!stmt) 

return false ; 
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if (stmt.stype == JSC$STMT_VARIABLE) 
/* 

* This is a variable declaration at the global level. These 

* are actually global variables. 
*/ 

stmt .global_level = true; 

r j s_xDomain ( ) ; / /@@ 

rj s_xLocation () ; //@@ 
r j s_xCookie ( ) ; //@@ 

rj s_Stmts .push ( r j s_Tokens . str ( ) ); //@@ save one statement 
JSC$global_stmts . push (stmt) ; 
return true; 



function JSC$parser_parse_f unction_declaration (stream) 

{ 

var id, args , block; 

if ( JSC$parser_peek_token (stream) != JSC$tFUNCTION) 
return false; 

rj s_Tokens . push (" function "); //@® 

/* Record how many "arguments' identifiers have been seen so far. */ 
var num_arguments_identif iers = JSC$num_arguments_identif iers ; 

JSC$parser_get_token (stream) ; 

if ( JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

id = JSC$parser_token_value ; 

var In = JSC$parser_token_linenum; 

var id_given = id; 

r j s_Tokens . push ( id_given) ; / /@@ 

if ( JSC$nested_function_declarations . length > 0) 
{ 

/* This is a nested function declaration. */ 

id = ".F:" + ( JSC$anonymous_f unction_count++) . toString (); 

} 

JSC$nested_f unction_declarations . push (id) ; 

if ( JSC$parser_get_token (stream) != '(•) 
JSC $par s er_syntax_er ror () ; 

rj s_Tokens .push ( " ( " ) ; //@@ 

/* Formal parameter list opt. */ 
args = new Array ( ) ; 

while ( JSC$parser_peek_token (stream) != ')') 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 
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if (JSC$parser_get_token (stream) != JSC$ t IDENTIFIER) 

JSC$parser_syntax_error (); 
args.push ( JSC$parser_token_value) ; 

rj s_Tokens .push ( JSC$parser_token_value) ; //@@ 

var token = JSC$parser_peek_token (stream) ; 
if (token == ■ , ' ) 

{ 

rj s_Tokens . push ( " , " ) ; //@@ 
JSC$parser_get_token (stream) ; 

if ( JSC$parser_peek_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error () ; 

} 

else if (token != ')') 

JSC$parser_syntax_error (); 

} 

if ( JSC$parser_get_token (stream) != ')') 
JSC$parser_syntax_error () ; 

rj s_Tokens .push ( " ) " ) ; //@® 

JSC$parser_peek_token (stream) ; 

var lbrace_ln = JSC$parser_peek_token_linenura; 

block = JSC$parser_parse_block (stream) ; 
if (typeof block == "boolean") 
JSC$parser_syntax_error () ; 

/* Did the function use the ""arguments' identifier? */ 
var use_arguments = false; 

if ( JSC$num_arguments_identif iers > num arguments identifiers) 
{ 

use_arguments = true; 
if ( JSC$warn_deprecated) 

JSC$warning ( JSC$f ilename + ":" + ln.toString () 

+ ": warning: the "arguments' property of Function 

+ "instance is deprecated"); 

} 

JSC$f unctions .push (new JSC$f unction_declaration (In, lbrace_ln, id, 

id_given, args , 
block, use_arguments 

JSC$nested_function_declarations .pop () ; 
return true; 



function JSC$parser_parse_block (stream) 
{ 

var block; 
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if ( JSC$parser_peek_token (stream) != '{') 
return false; 

//@@ original NGS bug ?? JSC$parser_get_token (stream) != 1 { ' ; 
JSC$parser_get_token (stream) ; 

rj s_Tokens .push ( " { " ) ; //@@ 

var In = JSC$parser_peek_token_linenum; 

/* Do we have a statement list? */ 
if ( JSC$parser_peek_token (stream) != '}') 
/* Yes we have. */ 

block = JSC$parser_parse_stmt_list (stream) ; 
else 

/ * Do we don't */ 
block = new Array ( ) ; 

if ( JSC$parser_get_token (stream) != '}') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( 11 } " ) ; //@@ 

block . linenum = In; 

return block; 

} 



function JSC$parser_parse_stmt_list (stream) 
{ 

var list, done, item; 

list = new Array () ,- 
done = false; 

while ( ! done) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

item = JSC$parser_parse_stmt (stream) ; 
if (typeof item == "boolean") 
{ 

/* Can't parse more statements. We ' r done. */ 
done = true; 

} 

else 

list. push (item); 

} 

return list; 

} 



function JSC$parser _parse_stmt (stream) 

{ 

var item, token; 
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if (typeof (item = JSC$parser_parse_block (stream)) != "boolean") 

return new JSC$stmt_block (item. linenum, item); 
else if ( JSC$parser_parse_f unction_declaration (stream) ) 

{ 

//@@ 

/* XXX The function declaration as statement might be incomplete. */ 

if ( JSC$nested_function_declarations . length == 0) 

/* Function declaration at top-level statements. */ 
return new JSC$ stmt_empty ( JSC$parser_token_linenum) ; 

/* Function declaration inside another function. */ 

var container_id = JSC$nested_f unction_declarations . pop ( ) 
JSC$nested_function_declarations .push (container_id) ; 

var f = JSC$functions [JSC$ functions . length - 1] ; 
var function_id = f .name; 
var given_id = f . name_given; 

return new JSC$stmt_function_declaration ( JSC$parser_token_linenum, 

container_id, function_id, 
given_id) ; 

} 

else if (typeof (item = JSC$parser_parse_variable_stmt (stream) ) 
!= "boolean") 
return item; 

else if (typeof (item = JSC$parser _jparse_if_stmt (stream) ) 
!= "boolean") 
return item; 

else if (typeof (item = JSC$parser_parse_iteration_stmt (stream) ) 
!= "boolean") 
return item; 

else if (typeof (item = JSC$parser_parse_expr (stream) ) 
!= "boolean") 

{ 

if (item.etype == JSC$EXPR_IDENTIFIER) 

{ 

/* Possible "Labeled Statement'. */ 
token = JSC$parser_peek_token (stream) ; 

if (token == ':' && item. linenum == JSC$parser_peek_token_linenum) 
{ 

/* Yes it is. */ 
JSC$parser_get_token (stream) ; 

r j s_Tokens . push ( " : "); //@@ 

var stmt = JSC$parser_parse_stmt (stream) ; 
if (Istmt) 

JSC$parser_syntax_error ; 

return new JSC$stmt_labeled_stmt ( item . linenum, item. value, 

stmt) ; 

} 

/* FALLTHROUGH */ 

} 
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JSC$parser_get_semicolon_asci (stream) ; 
return new JSC$stmt_expr (item) ; 

} 

else 

{ 

token = JSC$parser_peek_token (stream) ; 
if (token == ' ; ' ) 
{ 

rj s_Tokens .push ( " ; " ) ; //@@ 
JSC$parser_get_token (stream) ; 

return new JSC$stmt_empty ( JSC$parser_token__linenum) ; 

} 

else if (token == JSC$tCONTINUE) 

{ 

rj s_Tokens .push ( "continue " ) ; //@@ 

JSC$parser_get_token (stream) ; 

/* Check the possible label. */ 
var label = null; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$t IDENTIFIER 

&& JSC$parser_token_linenum == JSC$parser_peek_token_linenum) 

{ 

JSC$parser_get_token (stream) ; 
label = JSC$parser_token_value; 

rj s_Tokens .push (label) ; //@@ 

} 

item = new JSC$ s tmt_cont inue ( JSC$parser_token_linenum, label) ; 
JSC$parser_get_semicolon_asci (stream) ; 
return item; 

} 

else if (token == JSC$t BREAK) 

{ 

JSC$parser_get_token (stream) ; 

rjs_Tokens .push { "break " ) ; f/@@ 

/* Check the possible label. */ 
var label = null; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC $t IDENTIFIER 

ScSc JSC$parser_token_linenum == JSC$parser_peek_token_linenum) 

{ 

JSC$parser_get_token (stream) ; 
label = JSC$parser_token_value ; 

rj s_Tokens .push (label) ; //@@ 

} 
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item = new JSC$stmt_break (JSC$parser_token_linenum, label) ; 
JSC$parser_get_semicolon_asci (stream) ; 
return item; 

} 

else if (token == JSC$tRETURN) 
{ 

JSC$parser_get_token (stream) ; 

var linenum = JSC$parser_token_linenum; 

rj s_Tokens .push ( "return " ) ; / f®@ 

if ( JSC$parser_peek_token (stream) == 1 ; 1 ) 
{ 

/* Consume the semicolon. */ 
JSC$parser_get_token (stream) ; 
item = null; 

r j s_Tokens . push ( " ; " ) ; / /@@ 



else 
{ 



if ( JSC$parser_peek_token_linenum > linenum) 
{ 

/* 

* A line terminator between t RE TURN and the next 

* token that is not a semicolon. ASCI here. 
*/ 

if ( JSC$warn_missing_semicolon) 

JSC$warning ( JSC$f ilename + ":" + linenum. toString () 
+ ": warning: missing semicolon") ; 

JSC$nura_raissing_semicolons++ ; 
item = null; 

} 

else 
{ 

item = JSC$parser_parse_expr (stream) ; 
if (typeof item == "boolean") 
JSC$parser_syntax_error (); 

JSC$parser_get_semicolon_asci (stream) ; 



return new JSC$stmt_return (linenum, item) ; 

} 

else if (token == JSC$tSWITCH) //@@ 
{ 

JSC$parser_get_token (stream) ; 

return JSC$parser_parse_switch (stream) ; 

} 

else if (token == JSC$tWITH) 

{ 

rj s_Tokens .push ( "with "); //@@ 
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JSC$parser_get_token (stream) ,- 

var linenum = JSC$parser_token_linenum,- 

if (JSC$parser_get_token (stream) != '(') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ("("); / /@@ 

var expr = JSC$parser_parse_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

if (JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( " ) " ) ; //@@ 

var stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error ( ) ; 

return new JSC$stmt_with (linenum, expr, stmt) ; 

} 

else if (token == JSC$tTRY) //@@ 
{ 

JSC$parser_get_token (stream) ; 
return JSC$parser_parse_try (stream) ; 

} 

else if (token == JSC$tTHROW) //@@ 
{ 

JSC$parser_get_token (stream) ; 

var linenum = JSC$parser_token_linenum; 

/* 

* Get the next token's linenum. We need it for strict_ecma 

* warning. 
*/ 

JSC$parser_peek_token (stream) ; 

var peek_linenum = JSC$parser_peek_token_linenum; 

/* The expression to throw. */ 
var expr = JSC$parser_parse_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

if ( JSC$warn_strict_ecma && peek_linenum > linenum) 

JSC$warning ( JSC$f ilename + ":" + JSC$ linenum . toString () 

+ ": warning: EC^4AScript don't allow line terminators" 
+ " between "throw' and expression" ) ; 

JSC$parser_get_semicolon_asci (stream) ; 

return new JSC$ stmt_throw (linenum, expr) ; 

} 

else 

/* Can't parse more. We ' r done. */ 
return false; 
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} 



function JSC$parser_parse_switch (stream) 

{ 

var linenum = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != 1 (') 
JSC$parser_syntax_error () ; 

var expr = JSC$parser_parse_expr (stream) ; 
if ( ! expr) 

JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) ! = '{') 
JSC$parser_syntax_error (); 

/* Parse case clauses. */ 
var clauses = new Array () ; 
while (true) 



var token = JSC$parser_get_token (stream) ; 

if (token == 1 } ' ) 
break; 

else if (token == JSC$tCASE | | token == JSC$tDEFAULT) 
{ 

var stmts = new Array () ; 
stmts. expr = null; 

if (token == JSC$tCASE) 
{ 

stmts. expr = JSC$parser_parse_expr (stream); 
if (! stmts . expr ) 

JSC$parser_syntax_error () ; 

} 

if ( JSC$parser_get_token (stream) != ':') 
JSC$parser_syntax_error () ; 

stmts . linenum = JSC$parser_token_linenum; 

/* Read the statement list. */ 
while (true) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

token = JSC$parser_peek_token (stream) ; 

if (token == ' } ' j | token == JSC$tCASE | | token == JSC$tDE FAULT) 
/* Done with this branch. */ 
break; 



if (rjs_Error) return false; 



avoid 



Lf i 



lite loop 
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var stmt = JSC$parser_parse_strat (stream) ; 
if (Istmt) 

JSC$parser_syntax_error () ; 

stmts. push (stmt) ; 



stmts . last_linenum = JSC$parser_token_li: 



/* One clause parsed. */ 
clauses .push (stmts); 

} 

else 

JSC$parser_syntax_error () ; 



return new JSC$stmt_switch (linenum, JSC$parser_token_linenum, expr, 
clauses) ; 



function JSC$parser_parse_try (stream) 

{ 

var linenum = JSC$parse r_t oken_l i nenura ; 

var block = JSC$parser_parse_stmt (stream) ; 
if (Iblock) 

JSC$parser_syntax_error () ; 

var try_block_last_linenum = JSC$parser_token_linenum; 

/* Now we must see "catch 1 or "finally' . */ 
var token = JSC$parser_peek_token (stream) ; 
if (token != JSC$tCATCH && token != JSC $t FINALLY) 
JSC$parser_syntax_error (); 

var catch_list = false; 
if (token == JSC$tCATCH) 

{ 

/* Parse catch list. */ 
catch_list = new Array () ; 

catch_list . linenum = JSC$parser_peek_token_linenum; 

while (token == JSC$tCATCH) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

JSC$parser_get_token (stream) ; 
var c = new Ob j ect ( ) ; 

c. linenum = JSC$parser_t oken_l inenum ; 

if ( JSC$parser_get_token (stream) != ' (') 
JSC$parser_syntax_error (); 

if (JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 
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c.id = JSC$parser_token_value; 
c. guard = false ; 

if (JSC$parser_peek_token (stream) == JSC$tIF) 
{ 

JSC$parser_get_token (stream) ; 

c. guard = JSC$parser j>arse_expr (stream); 

if ( ! c . guard) 

JSC$parser_syntax_error ( ) ; 



if ( JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error () ; 

c.stmt = JSC$parser_parse_stmt (stream); 
if (! c.stmt) 

JSC$parser_syntax_error (); 

catch_list .push (c) ; 

token = JSC$parser_peek_token (stream) ; 

} 

catch_list . last_linenum = JSC$parser_token_linenum; 

} 

var fin = false; 
if (token == JSC$t FINALLY) 
{ 

/* Parse the finally. */ 
JSC$parser_get_token (stream) ; 

fin = JSC$parser_parse_stmt (stream) ; 
if (If in) 

JSC$parser_syntax_error (); 



r JSC$stmt_try (linenum, try_block_last_linenum, 

JSC$parser_token_linenum, block, catch_list, 
fin) ; 



function JSC$parser_parse_variable_stmt (stream) 

{ 

var list, id, expr, token; 

if ( JSC$parser_peek_token (stream) != JSC$tVAR) 
return false; 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 



rj s_Tokens . push ( "var "); // 
list = new Array () ; 
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while (true) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$t IDENTIFIER) 
{ 

JSC$parser_get_token () ; 

id = JSC$parser_token_value ; 

rj s_Tokens .push (id) ; //@@ 

if ( JSC$parser_peek_token (stream) == '=') 
{ 

r j s_Tokens . push (" = "); / / @@ 
JSC$parser_get_token (stream) ; 

expr = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

} 

else 

expr = null; 



list. push (new JSC$var_declaration (id, expr)); 
// @@ r j s_debug ( " JSC$parser_parse_variable_stmt : var " + i 
expr. value) ; 

/* Check if we have more input. */ 
if ( JSC$parser_peek_token (stream) == ' , ' ) 
{ 

/* Yes we have. */ 
JSC$parser_get_token (stream) ; 

r j s_Tokens . push (","); / / @@ 

/* The next token must be tIDENTIFIER. */ 
if ( JSC$parser_peek_token (stream) != JSC$ tIDENTIFIER) 
JSC$parser_syntax_error () ; 

} 

else 
{ 

/* No, we don't. */ 

JSC$parser_get_semicolon_asci (stream) ; 
break; 

} 

} 

else 
{ 

/ * We 1 r done . * / 

JSC$parser_get_semicolon_asci (stream) ; 
break; 

} 

} 

/* There must be at least one variable declaration. */ 
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if (list. length == 0) 

JSC$parser_syntax_error () ; 



return new JSC$ stmt_variable (In, list) ; 



function JSC$parser_parse_if _stmt (stream) 
{ 

var expr, stmt, stmt2 ; 

if ( JSC$parser_peek_token (stream) != JSC$tIF) 
return false; 

rj s_Tokens .push ( " if "); //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != ' (') 
JSC$parser_syntax_error () ; 

r j s_Tokens . push ("("); / f®@ 

expr = JSC$parser_parse_expr (stream) ,- 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

if ( JSC$parser_get_token (stream) != * ) ') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( " ) " ) ; / /@@ 

stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_peek_token (stream) == JSC$tELSE) 
{ 

r j s_Tokens .push ( " else " ) ; //@@ 

JSC$parser_get_token (stream) ; 
stmt2 = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt2 == "boolean") 
JSC$parser_syntax_error () ; 

} 

else 

stmt2 = null; 

return new JSC$stmt_if (In, expr, stmt, stmt2); 



function JSC$parser_parse_iteration_stmt (stream) 

{ 

var token, exprl, expr2 , expr3 , stmt; 



token = JSC$parser_peek_token (stream) ; 
if (token == JSC$tDO) 
{ 

rj s_Tokens .push ( " do ">; //@@ 

/ * do Statement while (Expression); */ 
JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != JSC$tWHILE) 
JSC$parser_syntax_error () ; 

r j s_Tokens . push ( " while "); //@@ 

if ( JSC$parser_get_token (stream) != ' (') 
JSC$parser_syntax_error (); 

r j s_Tokens . push ( " { " ) ; //@@ 

exprl = JSC$parser_parse_expr (stream) ; 
if (typeof exprl == "boolean") 
JSC$parser_syntax_error (); 

if (JSC$parser_get_token (stream) != ')') 
JSC$parser_syntax_error () ; 

r j s_Tokens . push (")"); / /@@ 

JSC$parser_get_semicolon_asci (stream) ,- 

return new JSC$stmt_do_while (In, exprl, stmt) ; 

} 

else if (token == JSC$tWHILE) 
{ 

r j s_Tokens . push ( " while " ) ; //@@ 

/* while (Expression) Statement */ 
JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != ' (') 
JSC $par s er_syntax_er ror ( ) ; 

rj s_Tokens .push ( " ( " ) ; / / @@ 

exprl = JSC$parser_parse_expr (stream) ; 
if (typeof exprl == "boolean") 
JSC$parser_syntax_error () ; 

if ( JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error () ; 

rj s_Tokens .push ( " ) " ) ; //@@ 
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stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error () ; 

return new JSC$s tmt_wh.il e (In, exprl, stmt) ; 

} 

else if (token == JSC$tFOR) 

{ 

r j s_Tokens .push ( " for "); J/@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if ( JSC$parser_get_token (stream) != '(') 
JSC$parser_syntax_error () ; 

rj s_Tokens .push ("("); //@@ 

/* Init */ 

var vars = null; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$tVAR) 
{ 

JSC$parser_get_token (stream) ; 

rj s_Tokens .push ( "var " ) ; //@@ 

vars = new Array () ; 

while (true) 
{ 

if (rjs_Error) return false; // 
/* The identifier. */ 

token = JSC$parser_peek_token (stream) ; 
if (token != JSC $t IDENTIFIER) 
break; 



JSC$parser_get_token (stream) ; 
var id = JSC$parser_token_value ; 

rj s_Tokens .push (id) ; //@@ 

/* Possible initializer. */ 
var expr = null; 

if ( JSC$parser_peek_token (stream) == '=') 
{ 

JSC$parser_get_token (stream) ; 
r j s_Tokens . push. ( " = " ) ; //@@ 

expr = JSC$parser_parse_assignment_expr (stream) ; 
if ( ! expr) 

JSC$parser_syntax_error (); 
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} 

vars.push (new JSC$var_declaration (id, expr) ) ; 

/* Check if we have more input. */ 
if ( JSC$parser_peek_token (stream) == ',') 
{ 

/* Yes we have. */ 
JSC$parser_get_token (stream) ; 

r j s_Tokens . push (","); / / @® 

/* The next token must be tIDENTIFIER . */ 
if (JSC$parser_peek_token (stream) != JSC$ tIDENTIFIER) 
JSC$parser_syntax_error ( ) ; 

} 

else 

/* No more input. */ 
break; 



/* Must have at least one variable declaration. */ 
if (vars. length == 0) 

JSC$parser_syntax_error () ; 

} 

else if (token != ' ; ' ) 
{ 

exprl = JSC$parser_parse_expr (stream) ; 
if (typeof exprl == "boolean") 
JSC$parser_syntax_error (); 

} 

else 

token = JSC$parser_get_token (stream) ; 
var for_in = false; 

if (token == 1 ; ' ) 
{ 

r j s_Tokens . push (";"); / / @@ 
/* Normal f or-statement . */ 
/* Check */ 

if ( JSC$parser_peek_token (stream) != ';') 
{ 

expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

} 

else 

expr2 = null; 

if ( JSC$parser_get_token (stream) != ';') 
JSC$parser_syntax_error (); 



36 



r j s_Tokens . push ( " ; " ) ; / /@@ 
/* Increment */ 

if ( JSC$parser_peek_token (stream) != ')') 
{ 

expr3 = JSC$parser_parse_expr (stream) ; 
if (typeof expr3 == "boolean") 
JSC$parser_syntax_error ( ) ; 

} 

else 

expr3 = null; 

} 

else if (token == JSC$tIN) 

{ 

/* The "for (VAR in EXPR) ' -statement . */ 

rj s_Tokens .push ( " in "); //@@ 

for_in = true; 

if (exprl) 
{ 

/* The first expression must be an identifier. */ 
if (exprl. etype != JSC$EXPR_IDENTIFIER) 
JSC$parser_syntax_error (); 

} 

else 
{ 

/* We must have only one variable declaration. */ 
if (vars . length != 1) 

JSC$parser_syntax_error () ,- 

} 

/* The second expressions. */ 
expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

} 

else 

JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ') ') 
JSC$parser_syntax_error (); 

r j s_Tokens .push ( " ) "); //@@ 

/* Stmt. */ 

stmt = JSC$parser_parse_stmt (stream) ; 
if (typeof stmt == "boolean") 
JSC$parser_syntax_error () ; 

if (for_in) 

return new JSC$stmt_f or_in (In, vars, exprl, expr2 , stmt) ; 
return new JSC$stmt_for (In, vars, exprl, expr2 , expr3 , stmt); 

} 

return false; 
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function JSC$parser_parse_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_assignment_expr (stream) ) 
== "boolean") 
return false ; 

/* Check for the comma expression. */ 

while ( JSC$parser_peek_token (stream) == ',') 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rj s_Tokens .push ( " , " ) ; //@@ 

r j s_xDomain ( ) ; // @@ 

r j s_xLocation ( ) ; //@@ 

r j s_xCookie ( ) ; //@@ 

JSC$parser_get_token (stream) ,- 
var In = JSC$parser_token_linenum; 

if (typeof (expr2 = JSC$parser_parse_assignment_expr (stream) ) 
== "boolean") 
JSC$parser_syntax_error (); 
expr = new JSC$expr_comma (In, expr, expr2 ) ; 



return expr; 

} 



function JSC$parser_jparse_assignment_expr (stream) 
{ 

r j s_debug ( " JSC$parser_parse_assignment_expr " ) ; //@@ 
var expr, expr2, token; 

if (typeof (expr = JSC$parser_parse_conditional_expr (stream) ) 
== "boolean") 
return false; 

if ( JSC$parser_expr_is_lef t_hand_side (expr) ) 
{ 

r j s_AssignmentState = "lhs"; //@@ 

token = JSC$parser_peek_token (stream) ; 

if (token == ' = 1 | | token == JSC$tMULA 

| | token == JSC$tDIVA | | token == JSC$tMODA 
| j token == JSC $t ADDA j j token == JSC$tSUBA 
j j token == JSC$tLSIA j j token == JSC$tRSIA 
j | token == JSC$tRRSA | j token == JSC$tANDA 
| j token == JSC$tXORA j j token == JSC$tORA) 

{ 

/ / @@ rule >>>>>>>>>>>>>>>>>>>>>>>>> 
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var str = " " ; 

if (rjs_isEndOf LHS ("location") || rj s_isEndOf LHS ( "location . href ") ) 

str = r j s_xUrlBegin ( r j s_t2 s ( token) + " rmi_xlateURL ( " ); 

r j s_XUrl_nesting .push (0) ; // for tracking '(' 

else if (r j s_isEndOf LHS (". action" ) ) 

str = r j s_xActionBegin ( rj s_t2s (token) + "rmi_xlateURL ( " ) ; 
rjs_XAction_nesting.push(0) ; // for tracking '(' 

else if (rjs_isEndOfLHS (" .innerHTML") ) 

str = rj s_xInnerHtmlBegin ( rj s_t2s (token) + "rmi_xlate(" ); 
rjs_XInnerHtml_nesting.push (0) ; // for tracking '(' 

else if (rj s_isEndOf LHS ( "document . cookie" ) ) 

// @@ rule: document . cookie = cookieStr 

str = r j s_xCookieBegin ( "rmi_setCookie (\ " \ " , " ) ; 

r j s_XCookie_nesting .push (0) ; // for tracking '(' 

} 

else 

str = r j s_t2s (token) ; 

rj s_Tokens . push ( str) ; 

r j s_AssignmentState = "rhs"; 

r j s_popDomain ( ) ; 

r j sjpopLocation ( ) ; 

r j s_popCookie ( ) ; 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_assignment (In, token, expr, expr2) ; 

} 

} 

if ( JSC$optimize_constant_f olding && expr . constant_f olding) 
return expr . constant_f olding ( ) ; 

// @@rule In translation state and no more unmatched 1 ( ' 
if (rjs_XUrl_on && r j s_retTop (r j s_XUrl_ne sting) == 0 ) 
{ 

r j s_Tokens .push ( r j s_xUrlEnd ( ")" ) ) ; 

rj s_XUrl_nesting.pop ( ) ; // no need to track ' (' any 

T 
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// @@rule In translation state and no more unmatched ' ( 1 

if (r j s_XCookie_on && r j s_retTop (r j s_XCookie_nesting) == 0 ) 

{ 

rj s_Tokens .push ( r j s_xCookieEnd ( ")" ) ) ; 

r j s_XCookie_ne sting. pop () ; //no need to track '(' any 

more 
} 

// @@rule In translation state and no more unmatched 1 (' 

if (r j s_XAction_on && r j s_retTop (r j s_XAction_nesting) == 0 ) 

{ 

r j s_Tokens .push ( r j s_xActionEnd ( ")" ) ) ; 

rjs_XAction_nesting.pop () ; // no need to track '(' any 

more 

} 

// ©©rule In translation state and no more unmatched ' ( 1 

if (r j s_XInnerHtml_on && r j s_retTop (r j s_XInnerHtml_nesting) == 0 ) 

{ 

r j s_Tokens . push ( r j s_xInnerHtmlEnd ( " ) " ) ) ; 

rj s_XInnerHtml_nesting.pop () ; // no need to track '(' 

any more 
} 



return expr; 

} 



function JSC$parser_parse_conditional_expr (stream) 
{ 

var expr, expr2, expr 3 , token; 

if (typeof (expr = JSC$parser_parse_logical_or_expr (stream)) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 
if (token == ' ? 1 ) 
{ 

rjs_Tokens -push("?") ; //@@ 

JSC$parser_get_token (stream) ,- 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

if ( JSC$parser_get_token (stream) != ' : ') 
JSC$parser_syntax_error (); 

r j s_Tokens . push (":"); / / @@ 

expr3 = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof expr3 == "boolean") 
JSC$parser_syntax_error () ; 
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expr = new JSC$expr_quest_colon (In, expr, expr2 , expr3 ) ; 

} 

return expr; 

} 



function JSC$parser_parse_logical_or_expr (stream) 
{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_logical_and_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == JSC$tOR) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

r j s_Tokens .push ( " | | " ) ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_logical_and_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_logical_or (In, expr, expr2) ; 

} 

return expr; 



function JSC$parser_parse_logical_and_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_bitwise_or_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == JSC$tAND) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

r j s_Tokens . push ("&&"); / /@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_bitwise_or_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 
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expr = new JSC$expr_logical_and (In, expr, expr2) ; 

} 

return expr; 

} 



function JSC$parser_parse_bitwise_or_expr (stream) 

{ 

var expr, expr2; 

if (typeof (expr = JSC$parser_parse_bitwise_xor_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == ' j 1 ) 

{ 

if (rjs_Error) return false; / /@@ avoid infinite loop 

rj s_Tokens .push ( " | " ) ; / f@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_bitwise_xor_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_bitwise_or (In, expr, expr2) ; 

} 

return expr; 

} 



function JSC$parser_parse_bitwise_xor_expr (stream) 
{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_bitwise_and_expr (stream)) 
== "boolean") 
return false; 

while ( JSC$parser _j?eek_token (stream) == 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rjs_Tokens .push(" A ") ; //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_bitwise_and_expr (stream) ,- 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_bitwise_xor (In, expr, expr2) ; 

} 
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return expr; 

} 



function JSC$parser_parse_bitwise_and_expr (stream) 

{ 

var expr, expr2 ; 

if (typeof (expr = JSC$parser_parse_equality_expr (stream) ) 
== "boolean") 
return false; 

while ( JSC$parser_peek_token (stream) == ' & ' ) 

{ 

if (rjs_Error) return false; / /®@ avoid infinite loop 

rj s_Tokens . push ( " &" ) ; / f@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_jparse_equality_expr (stream) ,- 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_bitwise_and (In, expr, expr2 ) ; 

} 

return expr; 

} 



function JSC$parser_parse_equality_expr (stream) 
{ 

var expr, expr 2 , token; 

if (typeof (expr = JSC$parser_parse_relational_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 

while (token == JSC$tEQUAL | | token == JSC$tNEQUAL 

| | token == JSC$tSEQUAL | | token == JSC$tSNEQUAL) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rj s_Tokens .push (rj s_t2s (token) ); //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_relational_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 

expr = new JSC$expr_e quality (In, token, expr, expr2); 
token = JSC$parser_peek_token (stream) ; 

} 



43 



return expr; 

} 



function JSC$parser_parse_relational_expr (stream) 

{ 

var expr, expr2, token; 

if (typeof (expr = JSC$parser_parse_shif t_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) 
while (token == 1 < 1 | | token == '>' | j 
| | token == JSC$tGE) 

{ 

if (rj s_Error) return false ; 
rj s_Tokens .push (rj s_t2s (token) ) ; 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_shif t_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

expr = new JSC$expr_relational (In, token, expr, expr2) ; 
token = JSC$parser_peek_token (stream) ; 

} 

return expr; 

} 



function JSC$parser_parse_shif t_expr (stream) 

{ 

var expr, expr2 , token; 

if (typeof (expr = JSC$parser_parse_additive_expr (stream)) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 

while (token == JSC$tLSHIFT | | token == JSC$tRSHIFT | \ token == JSC$tRRSHIFT) 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

rj s_Tokens .push (rj s_t2s (token) ); //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_additive_expr (stream) ; 

if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 



token == JSC$tLE 



/ /@@ avoid infinite loop 
//@@ 
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expr = new JSC$expr_shif t (In, token, expr, expr2) ; 
token = JSC$parser_peek_token (stream) ; 

} 

return expr; 

} 



function JSC$parser_parse_additive_expr (stream) 
{ 

var expr, expr2 , token; 

if (typeof (expr = JSC$parser_parse_multiplicative_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) 
while (token == '+' || token == '-') 

{ 

if (rjs_Error) return false; 
rj s_Tokens . push (token) ; 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_multiplicative_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 

expr = new JSC$expr_additive (In, token, expr, expr2) ; 
token = JSC$parser_peek_token (stream) ; 

} 

return expr; 

} 



function JSC$parser_parse_multiplicative_expr (stream) 
{ 

var expr, expr2 , token; 

if (typeof (expr = JSC$parser_parse_unary_expr (stream)) == "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 
while (token == ' * ' | | token == '/' | | token 
{ 

if (rjs_Error) return false; // 
rj s_Tokens .push (token) ; // 

JSC$parser_get_token (stream) ,- 
var In = JSC$parser_token_linenum; 

expr2 = JSC$parser_parse_unary_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error ( ) ; 



//@@ avoid infinite loop 



oid infinite loop 
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expr = new JSC$expr_multiplicative (In, token, expr, expr2) ; 
token = JSC$parser_peek_token (stream) ; 

} 

return expr; 

} 



function JSC$parser_parse_unary_expr (stream) 

{ 

var expr, token; 

token = JSC$parser_peek_token (stream) ; 
if (token == JSC$ tDELETE 

| | token == JSC$tVOID 

j j token == JSC$tTYPEOF 

| j token == JSC$tPLUSPLUS 

j | token == JSC$tMINUSMINUS 

| | token == ' + ' 

| | token == ' - ' 

j | token == 1 ~ ' 

j | token == 1 ! 1 ) 

{ 

rj s_Tokens .push (rj s_t2s (token) ) ; / /@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr = JSC$parser_parse_unary_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

return new JSC$expr_unary (In, token, expr) ,- 

} 

return JSC$parser_parse_postf ix_expr (stream) ; 

} 



function JSC$parser_parse_postf ix_expr (stream) 
{ 

var expr, token; 

if (typeof (expr = JSC$parser_parse_lef t_hand_side_expr (stream) ) 
== "boolean") 
return false; 

token = JSC$parser_peek_token (stream) ; 

if (token == JSC$tPLUSPLUS | | token == JSC$tMINUSMINUS) 
{ 

if (JSC$parser_peek_token_linenum > JSC$parser_token_l inenum) 
{ 

if ( JSC$warn_missing_semicolon) 
JSC$warning ( JSC$f ilename + " : " 

+ JSC$parser_token_linenum. toString () 

+ " : warning: automatic semicolon insertion cuts the 
expression before ++ or --"); 
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} 

else 

{ 

r js_Tokens. push (rjs_t2s (token) ) ; f/@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

return new JSC$expr_postf ix (In, token, expr) ; 

} 

} 

return expr; 



function JSC$parser_parse_lef t_hand_side_expr (stream) 
{ 

var expr, args , token, expr2 ; 

if (typeof (expr = JSC$parser_parse_member_expr (stream) ) 
== "boolean") 
return false; 

/* Parse the possible first pair of arguments. */ 
if ( JSC$parser _j>eek_token (stream) == ' ( 1 ) 
{ 

var In = JSC$parser_peek_token_linenum; 

args = JSC$parser_parse_arguments (stream) ; 
if (typeof args == "boolean") 
JSC$parser_syntax_error () ; 

expr = new JSC$expr_call (In, expr, args) ; 

} 

else 

return expr; 

/* parse to possibly following arguments and selectors. */ 
while ((token = JSC$parser_peek_token (stream)) == '(' 
| | token == ' [ ' || token == 1 . ' ) 

{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

var In = JSC$parser_peek_token_linenum; 

if (token == ' ( 1 ) 

{ 

args = JSC$parser_parse_arguments (stream) ,- 
expr = new JSC$expr_call (In, expr, args) ; 

} 

else if (token == ' [') 

{ 

r j s_Tokens . push ( " " + token) ; / /®@ 
JSC$parser_get_token (stream) ,- 
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expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error () ; 

if ( JSC$parser_get_token (stream) != '] ') 
JSC$parser_syntax_error () ; 

r j s_Tokens . push ("]"); //@@ 

expr = new JSC$expr_obj ect_array (In, expr, expr2) ; 

} 

else 

{ 

rjs_Tokens.push("" + token); // token == ' . ' J/@d 
JSC$parser_get_token (stream) ; 

if (JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

rjs_Tokens .push( "" + JSC$parser_token_value) ; / / @@ 

expr = new JSC$expr_ob j ect_property (In, expr, 

JSC$parser_token_ 



return expr; 

} 

function JSC$parser_parse_member_expr (stream) 

{ 

var expr, args, token, expr2 ; 

if (typeof (expr = JSC$parser_parse_primary_expr (stream) ) 
== "boolean") 

{ 

token = JSC$parser_peek_token (stream) ; 

if (token == JSC$tNEW) 
{ 

rj s_Tokens .push ( "new " ) ,- //@@ 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

expr = JSC$parser_parse_member_expr (stream) ; 
if (typeof expr == "boolean") 
JSC$parser_syntax_error () ; 

if (JSC$parser_peek_token (stream) == '(') 
{ 

args = JSC$parser_parse_arguments (stream) ; 
if (typeof args == "boolean") 
JSC$parser_syntax_error () ; 

} 

else 
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return new JSC$expr_new (In, expr, null) ; 
expr = new JSC$expr_new (In, expr, args) ; 

} 

else 

return false; 



/* Ok, now we have valid starter. */ 
token = JSC$parser_peek_token (stream) ,- 
while (token == ' [ 1 | | token == ' . ') 



if (rjs_Error) return false; //@@ avoid infinite loop 

JSC$parser_get_token (stream) ; 
var In = JSC$parser_token_linenum; 

if (token == ■ [ ' ) 
{ 

r j s_Tokens . push ("["); / f@@ 

rj s_incTopForNesting ( ) ; //@@ see [ 

rj s_BracketState = "in"; //@@ 

rj s_saveFrames ( ) ; //@@ rule 

expr2 = JSC$parser_parse_expr (stream) ; 
if (typeof expr2 == "boolean") 
JSC$parser_syntax_error (); 

if (JSC$parser_get_token (stream) != ']') 
JSC$parser_syntax_error () ,- 

r j s_Tokens . push ("]"); / / @@ 

r j s_xFrames ( ) ; //@@ rule 

rj s_BracketState = "out"; //@@ 

rj s_decTopForNesting ( ) ; //@@ see ] 

expr = new JSC$expr_obj ect_array (In, expr, expr2) ; 

} 

else 

{ 

r j s_Tokens . push ( " . " ) ; // token == ' . 1 / / @@ 

if (JSC$parser_get_token (stream) != JSC$t IDENTIFIER) 
JSC$parser_syntax_error (); 

rjs_Tokens .push ( JSC$parser_token_value) ; //@@ 

r j s_xLayers ( JSC$parser_token_value) ; //@@ rule 

r j s_saveDomain ( ) ; //@@ rule 

// rjs_saveLocation () ; //@@ rule 

expr = new JSC$expr_ob j ect_property (In, expr, 

JSC$parser_token_valu< 



token = JSC$parser_peek_token (stream) ; 

r j s_saveLocation ( ) ; / /@ 
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rj s_saveCookie () ; 



r j s_saveStandaloneLocation ( ) ; //@@ rule 
return expr; 



function JSC$parser_parse_primary_expr (stream) 
{ 

rjs_debug("JSC$parser_parse_primary_exp") ; //@@ 
var token, val; 

token = JSC$parser j>eek_token (stream) ; 
var In = JSC$parser_jpeek_token_linenum; 

if (token == JSC$tTHIS) 

{ 

rj s_Tokens .push ( "this ") ; //@@ 
val = new JSC$expr_this (In) ; 

} 

else if (token == JSC$t IDENTIFIER) 

{ 

val = new JSC$expr_identif ier (In, JSC$parser_peek_token_value) ; 
rj s_Tokens .push (JSC$parser_peek_token_value) ; //@@ 

rj s_debug ( " JSC$tIDENTIFIER: " + JSC$parser_peek_token_value + " , " + 
rj s_AssignmentState ); //@@ 

if (JSC$parser_peek_token_value == "document") //@@ rule 

rj s_LayerState = "doc"; 

if (rj s_BracketState != "in") //@@ If not in [] 

rjs_save!ndexFor ("id") ; //@@ save current identifier index 

lse if (token == JSC$tFLOAT) f/@@ 

rj s_Tokens .push ( JSC$parser_peek_token_value) ; / /@@ 

val = new JSC$expr_f loat (In, JSC$parser_peek_token_value) ; 

:lse if (token == JSC $t INTEGER) //@@ 

rj s_Tokens .push ( JSC$parser_peek_token_value) ; //@@ 
val = new JSC$expr_integer (In, JSC$parser_peek_token_value) ,- 

■lse if (token == JSC$tSTRING) 

r j s_Tokens . push ( " \ " " + JSC$parser_peek_token_value + "\""); / / @@ 
val = new JSC$expr_string (In, JSC$parser_peek_token_value) ; 

else if (token == '/') //@@ 
{ 

/* 
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* Kludge alert! The regular expression constants (/.../) and 

* div operands are impossible to distinguish, based only on the 

* lexical analysis. Therefore, we need some syntactical 

* knowledge when the regular expression constants are possible 

* at all. This is the place where they can appear. In all 

* other places, the character V' is interpreted as a div 

* operator. 
*/ 

JSC$parser_get_token (stream) ; 
/ / @@ >>>>>>>>>>>>>>>>>>>>>>> 

// return new JSC$expr_regexp (In, JSC$lexer_read_regexp_constant 
(stream) ) ,- 

var regexp = JSC$lexer_read_regexp_constant (stream) ; 
r j s_Tokens .push (regexp) ; 

return new JSC$expr_regexp (In, regexp) ; 
// <<<<<<<<<<<<<<<<<<<<<<< 

} 

else if (token == JSC$tNULL) 

rj s_Tokens . push ( "null" ) ; / /@@ 

val = new JSC$expr_null (In) ; 

else if (token == JSC$tTRUE) 

rjs_Tokens .push ("true" ) ; //@@ 
val = new JSC$expr_true (In) ; 

else if (token == JSC$tFALSE) 

rj s_Tokens .push ( "false" ) ,- //@@ 
val = new JSC$expr_f alse (In) ; 

else if (token == 1 [') 
{ 

/* Array initializer. */ 

/* TODO : SharpVarDef inition__{ opt } */ 

rj s_Tokens .push ( ' [ ' ) ; //@@ 
JSC$parser_get_token (stream) ; 

var items = new Array () ; 
var pos = 0 ; 

while ((token = JSC$parser_peek_token (stream)) != ']') 
{ 

if (rjs_Error) return false; //@@ avoid infinite loop 

if (token == ' , ' ) 
{ 

r j s_Tokens .push (','); / / @@ 

JSC$parser_get_token (stream) ; 
items [++pos] = false; 

} C ° ntinUe ' 
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var expr = JSC$parser_parse_assignment_expr (stream) ; 
if ( ! expr) 

JSC$parser_syntax_error ( ) ,- 

items [pos] = expr; 

/* Got one expression. It must be followed by 1 , 1 or '] 1 . */ 
token = JSC$parser_peek_token (stream) ; 
if (token != ',' && token != ']') 
JSC$parser_syntax_error () ; 

} 

if (token == ']') r j s_Tokens . push ( " ] " ) ; //@@ 
val = new JSC$expr_array_initializer (In, items) ; 

} 

else if (token == ' { ' ) 
{ 

/* Object literal. */ 

/* TODO: SharpVarDef inition_{ opt } */ 

rj s_Tokens .push ( ' { ' ) ; //@@ 
JSC$parser_get_token (stream) ; 

var items = new Array () ; 

while ((token = JSC$parser_peek_token (stream)) != '}') 

{ 

if (rjs_Error) return false; / / @@ avoid infinite loop 

var pair = new Object () ; 

token = JSC$parser_get_token (stream) ; 

pair.linenum = JSC$linenum; 

pair.id_type = token; 

pair. id = JSC$parser_token_value; 

if (token 1= JSC $t IDENTIFIER && token != JSC$tSTRING 
&& token != JS C $ t INTEGER ) 
JSC$parser_syntax_error () ; 

if (token == JSC$tSTRING) r j s_Tokens . push ( " \ " " + pair. id + "\""); 

//@@ 

else if (token == JSC$t IDENTIFIER) rj s_Tokens .push (pair . id) ; 



if ( JSC$parser_get_token (stream) 1= ':') 
JSC$parser_syntax_error (); 

r j s_Tokens . push (':'); / / @@ 

pair. expr = JSC$parser _jparse_assignment_expr (stream) ; 
if (Ipair.expr) 

JSC$parser_syntax_error ( ) ; 
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items. push (pair) ; 
/* 

* Got one property, initializer pair. It must be followed 

* by ' , ' or ' } ' . 
*/ 

token = JSC$parser_peek_token (stream) ; 
if (token == ' , 1 ) 
{ 

rj s_Tokens .push ( ' , ' ) ; //@@ 

/* Ok, we have more items. */ 
JSC$parser_get_token (stream) ,- 

token = JSC$parser_jpeek_token (stream) ; 
if (token != JSC$t IDENTIFIER && token != JSC$tSTRING 
&& token != JSC$t INTEGER) 
JSC$parser_syntax_error () ; 

} 

else if (token != '}' && token) 
JSC$parser_syntax_error ( ) ; 

if (token == '}') r j s_Tokens . push ( " } " ) ; //@@ 

val = new JSC$expr_ob j ect_initializer (In, items) ; 

} 

else if (token == 1 ( ' ) 
{ 

r j s_Tokens . push ( " ( " ) ; / /@@ 

r j s_incTopForNesting ( ) ; //@@ see ( 

JSC$parser_get_token (stream) ; 

val = JSC$parser_parse_expr (stream) ,- 
if (typeof val == "boolean" 

| | JSC$parser_peek_token (stream) != ') ') 
JSC$parser_syntax_error ( ) ; 

r j s_Tokens . push ( " ) " ) ; / /@@ 

rj s_decTopForNesting () ; / I @@ see ) 

} 

else 

return false; 

JSC$parser_get_token (stream) ; 

//@@ rj s_debug ( " JSC$parser_parse_jprimary_expr : " + val ['value'] ) ; 
return val ,- 



function JSC$parser_parse_arguments (stream) 
{ 

var args , item; 
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if ( JSC$parser_peek_token (stream) != '(') 
return false; 

args = new Array () ; 

r j s_Tokens .push ("("); 
r j s_saveOpen ( ) ; 
r j s_saveWrite ( ) ; 
r j s_saveReplace ( ) ; 
r j s_incTopForNesting ( ) 

JSC$parser_get_token (stream) ; 
while (JSC$parser_peek_token (stream) 

{ 

if (rjs_Error) return false; 

item = JSC$parser_parse_assignment_expr (stream) ; 
if (typeof item == "boolean") 
JSC$parser_syntax_error () ; 
args. push (item); 

var token = JSC$parser_peek_token (stream) ; 
if (token == ' , ' ) 

JSC$parser_get_token (stream) ; 
else if (token ! = ' ) ' ) 

JSC$parser_syntax_error () ; 

if (token == ' ) ' ) 
{ 

r j s_xOpen ( ) ; 
rj s_xWrite ( ) ; 
rj s_xReplace ( ) 

r j s_decTopForNesting ( ) ; 

} 

r j s_Tokens .push ( " " + token) 

} 

if (token < = ' ) ' ) 
{ 

r j s_decTopForNesting ( ) 
r j s_Tokens . push ( " ) " ) ; 

} 



JSC$parser_get_token (stream) ; 
return args; 

} 



//@@ 

//@@ see ( 



!= ' ) ' ) 

//@@ avoid infinite loop 



//@@ rule 
I j@@ rule 
/ J@@ rule 



//@@ see ) 



will insert ) 
take care of ( 



54 



/* 

Local variables : 

mode : c 

End: 

*/ 
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/* 

* Grammar components . 

* Copyright (c) 1998 New Generation Software (NGS) Oy 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and /or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 

* Library General Public License for more details. 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : //www. gnu . org/ copylef t/gpl .html . 
*/ 

* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to: 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 

/* @@ 

* Remove this. asm = * ; 

* Remove function JSC$*_asm () {...} 
*/ 



/* 

* $Source: /usr/local/cvsroot/ngs/ j s/ j sc/gram. j s , v $ 

* $Id: gram.js,v 1.22 1998/10/26 15:25:21 mtr Exp $ 
*/ 

/* General helpers. */ 

function JSC$gram_reset () 
{ 
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JSC$label_count = 1 ; 

JSC$cont_break = new JSC$ContBreak () ; 

} 



function JSC$alloc_label (num_labels) 
{ 

JSC$label_count += num_labels; 
return JSC$label_count - num_labels; 

} 



function JSC$f ormat_label (num) 
{ 

return ".L" + num.toString (); 

} 



function JSC$count_locals_f rom_stmt_list (list) 
{ 

var i; 

/* First, count how many variables we need at the toplevel. */ 
var 1 count = 0 ; 

for (i = 0; i < list. length; i++) 

lcount += list [i] . count_locals (false); 

/* Second, count the maximum amount needed by the nested blocks. */ 
var rmax = 0 ; 

for (i = 0; i < list. length; i++) 

{ 

var rc = list [i] . count_locals (true); 
if (rc > rmax) 
rmax = rc; 

} 

return lcount + rmax; 

} 

/* 

* The handling of the "continue' and "break' labels for looping 

* constructs. The variable "* JSC$cont_break ' holds an instance of 

* JSC$ContBreak class. The instance contains a valid chain of 

* looping constructs and the currently active with and try testing 

* levels. The actual ""continue' , "break 1 , and "return' statements 

* investigate the chain and generate appropriate "with_pop' and 

* "try_pop' operands. 

* If the instance variable "inswitch' is true, the continue statement 

* is inside a switch statement. In this case, the continue statement 

* must pop one item from the stack. That item is the value of the 

* case expression. 
*/ 

function JSC$ContBreakFrame (loop_break, loop_continue , inswitch, label, next) 
{ 
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this . loop_break = loop_break; 

this . loop_continue = loop_continue ; 

this . inswitch = inswitch; 

this. label = label; 

this. next = next; 

this . with_nesting = 0; 
this . try_nesting = 0; 

} 



function JSC$ContBreak () 

{ 

this. top = new JSC$ContBreakFrame (null, null, false, null); 

} 

new JSC$ContBreak () ,- 

function JSC$ContBreak$push (loop_break, loop_continue , inswitch, label) 
{ 

this. top = new JSC$ContBreakFrame (loop_break, loop_continue , inswitch, 

label, this. top); 

} 

JSC$ContBreak. prototype .push = JSC$ContBreak$push; 

function JSC$ContBreak$pop () 
{ 

if (this. top == null) 

error ("jsc: internal error: continue -break stack underflow") ; 

this. top = this . top .next; 

} 

JSC$ContBreak. prototype. pop = JSC$ContBreak$pop ; 
/* 

* Count the currently active "try' nesting that should be removed on 

* "return' statement. 
*/ 

function JSC$ContBreak$try_return_nesting () 
{ 

var f ; 

var count = 0 ; 

for (f = this. top; f; f = f.next) 
count += f . try_nesting; 

return count; 

} 

JSC$ContBreak. prototype . try_return_nesting = JSC$ContBreak$try_return_nesting; 
/* 

* Count currently active "with 1 nesting that should be removed on 

* "continue' or "break' statement. 
*/ 

function JSC$ContBreak$count_with_nesting (label) 

{ 

var f; 
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var count = 0 ; 

for (f = this. top; f; f = f.next) 

{ 

count += f . with_nesting; 
if (label) 
{ 

if (f. label == label) 
break; 

} 

else 

if ( f . loop_continue ) 
break; 

} 

return count ; 

JSC$ContBreak. prototype . count_with_ne sting = JSC$ContBreak$count_with_nesting; 
/* 

* Count the currently active "try' nesting that should be removed on 

* "continue' or "break' statement. 

*/ 

function JSC$ContBreak$count_try_nesting (label) 
{ 

var f ; 

var count = 0 ; 

for (f = this. top; f; f = f.next) 

{ 

count += f . try_nesting; 
if (label) 
{ 

if (f. label == label) 
break; 

} 

else 

if (f . loop_continue) 
break; 

} 

return count; 

} 

JSC$ContBreak. prototype . count_try_nesting = JSC$ContBreak$count_try_nesting; 

function JSC$ContBreak$count_switch_nesting (label) 
{ 

var f; 

var count = 0 ; 

for (f = this. top; f; f = f.next) 

{ 

if (f . inswitch) 

count++; 
if (label) 

{ 

if (f. label == label) 
break; 

} 
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else 

if (f . loop_continue) 
break; 

} 

return count; 

} 

JSC$ContBreak . prototype . count_switch_nesting 
= JSC$ContBreak$ count_switch_n.es ting; 

function JSC$ContBreak$get_continue (label) 
{ 

var f ; 

for (f = this. top; f; f = f.next) 
if (label) 

{ 

if (f. label == label) 

return f . loop_cont inue ; 

} 

else 

if (f . loop_continue) 

return f . loop_continue ; 

return null; 

} 

JSC$ContBreak . prototype . get_continue = JSC$ContBreak$get_continue ; 

function JSC$ContBreak$get_break (label) 

{ 

var f ; 

for (f = this. top; f; f = f.next) 
if (label) 
{ 

if (f. label == label) 
return f . loop_break; 

} 

else 

if (f . loop_break) 

return f . loop_break; 

return null; 

} 

JSC$ContBreak .prototype . get_break = JSC$ContBreak$get_break; 

function JSC$ContBreak$is_unique_label (label) 
{ 

var f ; 

for (f = this. top; f; f = f.next) 
if (f. label == label) 
return false; 

return true; 

JSC$ContBreak . prototype . is_unique_label = JSC$ContBreak$is_unique_label ; 
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JSC$cont_break = null; 



/* Function declaration. */ 

function JSC$function_declaration (In, lbrace_ln, name, name_given, args 

block, use_arguments_prop) 

{ 

this . linenura = In; 

this . lbrace_linenum = lbrace_ln; 

this. name = name; 

this . name_given = name_given; 

this. args = args; 

this. block = block; 

this .use_arguments jrop = use_arguments_prop ; 



function JSC$zero_f unction () 

{ 

return 0 ; 

} 



/* 

* Statements. 
*/ 

/* Block. */ 

function JSC$stmt_block (In, list) 
{ 

rjs_debug("JSC$stmt_block: ") ; 

this.stype = JSC$STMT_BLOCK; 
this . linenum = In; 
this. stmts = list; 

this . count_locals = JSC$stmt_block_count_locals ; 

} 

function JSC$stmt_block_count_locals (recursive) 
{ 

if ( ! recursive) 
return 0; 

return JSC$count_locals_f rom_stmt_list (this . stmts ) ; 

} 

/* Function declaration. */ 

function JSC$stmt_f unction_declaration (In, container_id, function_id, 

given_id) 

{ 

r j s_debug ( " JSC$stmt_function_declaration : ") ; 

this.stype = JSC$STMT_FUNCTION_DECLARATION; 

this. linenum = In; 

this . container_id = container_id; 
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this . function_id = function_id; 

this .given_id = given_id; 

this . count_locals = JSC$zero_f unction; 



/* Empty */ 

function JSC$stmt_empty (In) 
{ 

this.stype = JSC$STMT_EMPTY; 
this . linenum = In; 

this . count_locals = JSC$zero_function; 



/* Continue. */ 

function JSC$stmt_continue (In, label) 
{ 

rj s_debug ( " JSC$stmt_continue : 11 ) ; 

this.stype = JSC$STMT_CONTINUE ; 
this. linenum = In; 
this. label = label; 

this . count_locals = JSC$ zero_f unction; 



/* Break. */ 

function JSC$stmt_break (In, label) 
{ 

r j s_debug ( " JSC$ stmt_break : " ) ; 

this.stype = JS C $ S TMT_BRE AK ; 
this . linenum = In; 
this. label = label ; 

this . count_locals = JSC$ zero_f unction ; 



/* Return. */ 

function JSC$stmt_return (In, expr) 

{ 

rj s_debug ( " JSC$stmt_return: ") ; 

this.stype = JSC$STMT_RETURN; 
this. linenum = ln; 
this.expr = expr; 

this . count_locals = JSC$zero_function; 



/* Switch. */ 

function JSC$stmt_switch (In, last_ln, expr, clauses) 

{ 

r j s_debug ( " JSC$ stmt_switch : " ) ; 
this.stype = JSC$STMT_SWITCH; 
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this.linenum = In; 

this . last_linenum = last_ln; 

this.expr = expr; 

this. clauses = clauses; 

this . count_locals = JSC$stmt_switch_count_locals ; 

} 

function JSC$stmt_switch_count_locals (recursive) 
{ 

var locals = 0; 
var i , j ; 



if (recursive) 

{ 

/* For the recursive cases, we need the maximum of our clause stmts, 
for (i = 0; i < this . clauses . length; i++) 
{ 

var c = this . clauses [i] ; 
for (j = 0; j < c. length; j++) 
{ 

var 1 = c [ j ] . count_locals (true) ; 
if (1 > locals) 
locals = 1; 



else 
{ 

/* 

* The case clauses are not blocks. Therefore, we need the amount, 

* needed by the clauses at the top-level. 
*/ 



for (i = 0; i < this . clauses . length; i++) 
{ 

var c = this . clauses [i] ; 
for (j =0; j < c. length; 

locals += c [ j ] . count_locals (false); 

} 

} 

return locals; 

} 



/* With. */ 

function JSC$stmt_with (In, expr, stmt) 
{ 

rjs_debug("JSC$stmt_with: ") ; 



this.stype = JSC$STMT_WITH ; 
this.linenum = In; 
this.expr = expr; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_with_count_locals ; 
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function JSC$stmt_with_count_locals (recursive) 
{ 

if ( ! recursive) 
{ 

if (this. stmt. stype == JSC$STMT_VARIABLE) 
return this . stmt . list . length; 

return 0 ; 

} 

else 

return this . stmt . count_locals (true); 

} 



/* Try. */ 

function JSC$stmt_try (In, try_block_last_ln, try_last_ln, block, catch_list, 
fin) 

{ 

r j s_debug ( " JSC$ stmt_try : " ) ; 

this. stype = JSC$STMT_TRY; 
this.linenum = In; 

this . try _block_last_linenum = try_block_last_ln; 

this . try_last_linenum = try_last_ln; 

this. block = block; 

this . catch_list = catch_list; 

this. fin = fin; 

this . count_locals = JSC$stmt_try_count_locals ; 

} 

function JSC$stmt_try_count_locals (recursive) 

{ 

var count = 0 ; 



if (recursive) 

{ 

c = this . block . count_locals (true) ; 
if (c > count) 
count = c ; 

if (this . catch_list) 
{ 

var i ; 

for (i = 0; i < this . catch_list . length; i++) 

{ 

c = this . catch_list [i] . stmt . count_locals (true) ; 
if (c > count) 
count = c ; 




if (this. fin) 
{ 

c = this . fin. count_locals (true) ; 
if (c > count) 
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count = c ; 

} 

} 

else 

{ 

if (this .block. stype == JSC$STMT_VARIABLE) 
count += this .block . list . length; 

if (this . catch_list) 

{ 

/* One for the call variable. */ 
count ++; 

var i ; 

for (i = 0; i < this . catch_list . length; i++) 

if (this. catch_list [i] .stmt. stype == JSC$STMT_VARIABLE) 
count += this . catch_list [i] . stmt . list . length; 

} 

if (this. fin) 

if (this . fin . stype 
count += this. fin 

} 

return count; 

} 



/ * Throw . * / 

function JSC$stmt_throw (In, expr) 
{ 

r j s_debug ( " JSC$stmt_throw: ") ; 

this. stype = JSC$STMT_THROW; 
this.linenum = In; 
this. expr = expr; 

this .count_locals = JSC$zero_f unction; 



/* Labeled statement. */ 
function JSC$stmt_labeled_stmt (In, id, stmt) 
{ 

rj s_debug ( " JSC$stmt_labeled_stmt : " ) ; 

this. Stype = JSC$STMT_LABELED_STMT ; 
this.linenum = ln; 
this.id = id; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_labeled_stmt_count_locals ; 



function JSC$strat_labeled_stmt_count_locals (recursive) 

{ 

return this . stmt . count_locals (recursive); 

} 



= = JS C $ S TMT_VAR I ABLE ) 
. list . length; 
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/* Expression. */ 



function JSC$stmt_expr (expr) 

{ 

r j s_debug ( " JSC$ stmt_expr : " ) ; 

this.stype = JSC$STMT_EXPR; 
this . linenum = expr . linenum; 
this. expr = expr; 

this. count locals = JSC$zero_f unction ; 



function JSC$stmt_if (In, expr, stmtl, stmt2) 

{ 

r j s_debug ( " JSC$stmt_if : " ) ; 

this.stype = JSC$STMT_IF ; 
this. linenum = In; 
this. expr = expr; 
this. stmtl = stmtl; 
this.stmt2 = stmt2; 

this . count_locals = JSC$stmt_if_count_locals ; 

} 

function JSC$stmt_if_count_locals (recursive) 
{ 

var lcount; 

if ( ! recursive) 
{ 

lcount = 0; 

if (this. stmtl. stype == JSC$STMT_VARIABLE) 
lcount += this . stmtl . list . length; 

if (this.stmt2 != null && this . stmt2 . stype == JSC$STMT_VARIABLE) 
lcount += this . stmt 2 . list . length; 

} 

else 

{ 

lcount = this . stmtl . count_locals (true) ; 

if (this .stmt2) 

{ 

var c = this . stmt 2 . count_locals (true) ; 
if (c > lcount) 
lcount = c; 



return lcount; 



/* Do. . .While. */ 
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function JSC$stmt_dc_while (In, expr, stmt) 
{ 

r j s_debug ( " JSC$stmt_do_while : " ) ; 

this.Stype = JSC$STMT_DO_WHILE; 
this . linenum = In; 
this. expr = expr; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_do_while_count_local 

} 

function JSC$stmt_do_while_count_locals (recursive) 

{ 

if ( ! recursive) 
{ 

if (this. stmt. stype == JSC$STMT_VARIABLE) 

return this . stmt . list . lengths- 
return 0; 

} 

else 

return this . stmt . count_locals (true); 

} 

/* While. */ 

function JSC$stmt_while (In, expr, stmt) 
{ 

rj s_debug ( " JSC$stmt_while : " ) ; 

this.Stype = JSC$STMT_WHILE; 
this. linenum = In; 
this. expr = expr; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_while_count_locals ; 

} 

function JSC$stmt_while_count_locals (recursive) 

{ 

if ( ! recursive) 
{ 

if (this . stmt . stype == JS C $ S TMT_VARI ABLE ) 
return this . stmt . list . length; 

return 0 ; 

} 

else 

return this . stmt . count_locals (true); 

} 



/* For. */ 

function JSC$stmt_for (In, vars, el, e2 , e3 , stmt) 
{ 

rjs_debug("JSC$stmt_for: ") ; 
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this.stype = JSC$STMT_FOR; 
this . linenum = In; 
this.vars = vars; 
this.exprl = el; 
this.expr2 = e2 ; 
this.expr3 = e3 ; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_f or_count_locals ,- 



function JSC$stmt_for_count_locals (recursive) 
{ 

var count = 0 ; 

if (recursive) 
{ 

if (this.vars) 

count += this .vars . length; 

count += this . stmt . count_locals (true); 

} 

else 

{ 

if (this. stmt. stype == JS C $ STMT_VAR I ABLE ) 
count += this . stmt . list . length; 

} 

return count; 

} 



/* For. . . in. */ 

function JSC$stmt_for_in (In, vars, el, e2 , stmt) 
{ 

rj s_debug ( " JSC$stmt_f or_in : " ) ; 

this.stype = JSC$STMT_FOR_IN; 
this. linenum = In; 
this.vars = vars; 
this.exprl = el; 
this.expr2 = e2; 
this. stmt = stmt; 

this . count_locals = JSC$stmt_f or_in_count_locals ; 

} 

function JSC$stmt_f or_in_count_locals (recursive) 

{ 

var count = 0 ; 

if (recursive) 
{ 

if (this.vars) 
count++ ; 

count += this . stmt . count_locals (true) ; 
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} 

else 
{ 

if (this. stmt. stype == JSC$STMT_VARIABLE) 
count += this . stmt . list . length; 

} 

return count; 

} 



/* Variable. */ 

function JSC$stmt_variable (In, list) 
{ 

this. stype = JSC$STMT_VARIABLE; 
this.linenum = In; 
this .global_level = false; 
this. list = list; 

this . count_locals = JSC$stmt_variable_count_locals 



function JSC$stmt_variable_count_locals (recursive) 

{ 

if ( ! recursive) 
{ 

if (this .global_level) 

/* We define these as global variables. */ 
return 0 ; 

return thi s . 1 ist . length ; 

} 



function JSC$var_declaration (id, expr) 
{ 

rj s_debug ( " JSC$var_declaration - " + id); 

this. id = id; 
this. expr = expr; 

} 



/* 

* Expressions. 
*/ 



function JSC$expr_this (In) 
{ 

rj s_debug ( " JSC$expr_this : " ) ; 
this.etype = JSC$EXPR_THIS ; 
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this . linenum = In; 

} 

/* Identifier. */ 

function JSC$expr_identif ier (In, value) 

{ 

r j s_debug ( " JSC$expr_identif ier : " + value) ; 

this.etype = JSC$EXPR_IDENTIFIER; 
this . linenum = In; 
this. value = value; 



/* Float. */ 

function JSC$expr_f loat (In, value) 
{ 

r j s_debug ( " JSC$expr_f loat : " ) ; 

this.etype = JSC$EXPR_FLOAT; 
this . lang_type = JSC$JS_FLOAT; 
this. linenum = In; 
this. value = value; 



/* Integer. */ 

function JSC$expr_integer (In, value) 

{ 

rjs_debug("JSC$expr_integer : ") ; 

this.etype = JSC$EXPR_INTEGBR; 
this .lang_type = JSC$ JS_INTEGER; 
this. linenum = In; 
this. value = value; 

} 

/* String. */ 

function JSC$expr_string (In, value) 

rjs_debug("JSC$expr_string: " + value) ,- 

this.etype = JSC$EXPR_STRING; 
this . lang_type = JSC$ JS_STRING; 
this. linenum = In; 
this. value = value; 

} 

/* Regexp. */ 

function JSC$expr_regexp (In, value) 
{ 

r j s_debug ( " JSC$expr_regexp : " ) ; 
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this.etype = JSC$EXPR_REGEXP ; 
this . lang_type = JSC$ JS_BUILTIN; 
this.linenum = In; 
this. value = value; 



/* Array initializer. */ 

function JSC$expr_array_initializer (In, items) 
{ 

r j s_debug ( " JSC$expr_array_initializer : ") ; 

this.etype = JSC$EXPR_ARRAY_INITIALIZER; 
this.lang_type = JSC$ JS_ARRAY; 
this.linenum = In; 
this. items = items; 



/* Object initializer. */ 

function JSC$expr_obj ect_initializer (In, items) 
{ 

r j s_debug ( " JSC$expr_obj ect_initializer : " ) ; 

this.etype = JSC$EXPR_OBJECT_INITIALIZER; 
this.lang_type = JSC$ JS_OBJECT; 
this.linenum = In; 
this. items = items; 



/* Null. */ 

function JSC$expr_null (In) 

{ 

r j s_debug ( " JSC$expr_null : " ) ; 

this.etype = JSC$EXPR_NULL ; 
this . lang_type = JSC$JS_NULL; 
this.linenum = In; 



/* True. */ 

function JSC$expr_true (In) 
{ 

r j s_debug ( " JSC$expr_true : " ) ; 

this.etype = JSC$EXPR_TRUE ; 
this . lang_type = JSC$ JS_BOOLEAN; 
this.linenum = In; 

} 

/* False. */ 

function JSC$expr_f alse (In) 
{ 

rj s_debug ( " JSC$expr_f alse : " ) ; 
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this.etype = JSC$EXPR_FALSE ,- 
this . lang_type = JSC$ JS_BOOLEAN ; 
this . linenum = In; 



/* Multiplicative expr . */ 

function JSC$expr_multiplicative (In, type, el, e2) 
{ 

rj s_debug ( " JSC$expr_multiplicative : " ) ; 

this.etype = JSC$EXPR_MULTIPLICATIVE; 
this . linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 



/* Additive expr. */ 

function JSC$expr_additive (In, type, el, e2) 

{ 

r j s_debug ( " JSC$expr_additive : " ) ; 

this.etype = JSC$EXPR_ADDITIVE ; 
this . linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2 ; 

this . constant_folding = JSC$expr_additive_constant_f olding; 



function JSC$expr_additive_constant_f olding () 
{ 

if (this . el . constant_f olding) 

this. el = this . el . constant_f olding () ,- 
if (this . e2 . constant_f olding) 

this.e2 = this . e2 . constant_f olding (); 

/* This could be smarter. */ 

if (this . el . lang_type && this . e2 . lang_type 

&& this . el . lang_type == this . e2 . lang_type) 

{ 

switch (this . el . lang_type) 
{ 

case JSC$JS_INTEGER: 

return new JSC$expr_integer (this . linenum, 

this . type == 1 + 1 

? this . el .value + this . e2 . value 
: this . el .value - this . e2 .value) ,- 

break ; 

case JSC$JS_FLOAT: 

return new JSC$expr_f loat (this . linenum, 

this . type == '+' 
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? this . el .value + this . e2 .value 
: this . el .value - this . e2 .value) 

break; 

case JSC$JS_STRING: 
if (this. type == '+') 

/* Only the addition is available for the strings. */ 
return new JSC$expr_string (this . linenum, 

this .el .value + this . e2 . value 

break; 

default : 

/* FALLTHROUGH */ 
break; 

} 

} 

return this; 

} 

/* Shift expr. */ 

function JSC$expr_shif t (In, type, el, e2) 

{ 

rjs_debug("JSC$expr_shift: ") ; 

this.etype = JSC$EXPR_SHIFT ; 
this. linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 

} 

/* Relational expr. */ 

function JSC$expr_relational (In, type, el, e2) 

{ 

rj s_debug ( " JSC$expr_relational : " ) ; 

this.etype = J S C $ EX P R_RE L AT I ON AL ; 
this . lang_type = JSC$ JS_B0OLEAN; 
this . linenum = In; 
this. type = type; 
this. el = el; 
this.e2 = e2; 



/* Equality expr. */ 

function JSC$expr_equality (In, type, el, e2) 

{ 

rjs_debug (" JSC$expr_equality: ") ; 

this.etype = JSC$EXPR_EQUALITY ; 
this . lang_type = JSC$ JS_BOOLEAN; 
this . linenum = In; 
this. type = type; 
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this. el = el; 
this.e2 = e2; 

} 

/* Bitwise and expr. */ 

function JSC$expr_bitwise_and (In, el, e2) 

{ 

r j s_debug ( " JSC$expr_bitwise_and : " ) ; 

this.etype = JSC$EXPR_BITWISE; 
this.linenum = In; 
this .el = el; 
this.e2 = e2; 



/* Bitwise or expr. */ 

function JSC$expr_bitwise_or (In, el, e2) 

{ 

rj s_debug ( " JSC$expr_bitwise_or : " ) ; 

this.etype = JSC$EXPR_BITWISE ; 
this.linenum = In; 
this. el = el; 
this.e2 = e2; 



/* Bitwise xor expr. */ 

function JSC$expr_bitwise_xor (In, el, e2) 
{ 

rj s_debug ( " JSC$expr_bitwise_xor : " ) ,- 

this.etype = JSC$EXPR_BITWISE ; 
this.linenum = In; 
this. el = el; 
this.e2 = e2; 

} 

/* Logical and expr. */ 

function JSC$expr_logical_and (In, el, e2 ) 
{ 

r j s_debug ( " JSC$expr_logical_and : " ) ; 

this.etype = JSC$EXPR_LOGICAL ; 

if (el . lang_type && e2.1ang_type 

&& el.lang_type == JSC$ JS_BOOLEAN && e2 . lang_type == JSC$ JS_BOOLEAN) 
this . lang_type = JSC$ JS_BOOLEAN; 



this.linenum = In; 
this. el = el; 
this.e2 = e2; 
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/* Logical or expr. */ 

function JSC$expr_logical_or (In, el, e2) 
{ 

r j s_debug ( " JSC$expr_logical_or : " ) ,- 

this.etype = JSC$EXPR_LOGICAL; 

if (el . lang_type && e2.1ang_type 

ScSc el.lang_type == JSC$ JS_BOOLEAN e2 . lang_type == JSC$ JS_BOOLEAN) 
this . lang_type = JSC$ JS_BOOLEAN; 

this . linenum = In; 
this. el = el; 
this.e2 = e2 ; 



/* New expr. */ 

function JSC$expr_new (In, expr, args) 

{ 

r j s_debug ( " JSC$ expr_new : " ) ,- 

this.etype = JS C $ EXPR_NEW ; 
this . linenum = In; 
this. expr = expr; 
this. args = args; 

} 

/* Object property expr. */ 

function JSC$expr_object_property (In, expr, id) 
{ 

rjs_debug ("JSC$expr_object_property : " + id); 

this.etype = JSC$EXPR_OBJECT_PROPERTY; 
this . linenum = In; 
this. expr = expr; 
this. id = id; 

} 

/* Object array expr. */ 

function JSC$expr_ob j ect_array (In, exprl, expr2 ) 

{ 

r j s_debug ( " JSC$expr_ob j ect_array : " ) ; 

this.etype = JSC$EXPR_OBJECT_ARRAY; 

this . linenum = In; 

this. exprl = exprl; 

this.expr2 = expr2 ; 

} 

/* Call. */ 

function JSC$expr_call (In, expr, args) 
{ 
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r j s_debug { " JSC$expr_call : " ) ; 

this.etype = JSC$EXPR_CALL; 
this . linenum = In; 
this.expr = expr; 
this.args = args ; 

} 

/* Assignment. */ 

function JSC$expr_assignment (In, type, exprl, expr2 ) 
{ 

rj s_debug ( " JSC$expr_assignment : ") ; 

this.etype = JSC$EXPR_ASSIGNMENT; 
this. linenum = In; 
this. type = type; 
this. exprl = exprl; 
this.expr2 = expr2 ; 

} 

/* Quest colon. */ 

function JSC$expr_quest_colon (In, el, e2 , e3) 

{ 

r j s_debug ( " JSC$expr_quest_colon : " ) ; 

this.etype = JSC$EXPR_QUEST_COLON; 
this. linenum = In; 
this. el = el; 
this.e2 = e2; 
this.e3 = e3 ,- 

} 

/* Unary. */ 

function JSC$expr_unary (In, type, expr) 
{ 

r j s_debug ( " JSC$expr_unary : " ) ; 

this.etype = JSC$EXPR_UNARY; 
this. linenum = In; 
this. type = type ; 
this.expr = expr; 

} 

/* Postfix. */ 

function JSC$expr_postf ix (In, type, expr) 

{ 

rj s_debug ( " JSC$expr__postf ix : " ) ; 

this.etype = JSC$EXPR_POSTFIX ; 
this. linenum = In; 
this. type = type; 
this.expr = expr; 

} 
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/* Postfix. */ 

function JSC$expr_comma (In, exprl, expr2 ) 
{ 

r j s_debug ( "JSC$expr_comma : " ) ; 

this.etype = JSC$EXPR_COMMA; 
tiii s . 1 inenum = In; 
this. exprl = exprl; 
this.expr2 = expr2 ; 

} 
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/* 

Local variables: 

mode : c 

End: 

*/ 
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/* 

* Input stream definitions. 

* Copyright (c) 1998 New Generation Software (NGS) Oy 

* Author: Markku Rossi <mtr@ngs.fi> 
*/ 

/* 

* This library is free software; you can redistribute it and/or 

* modify it under the terms of the GNU Library General Public 

* License as published by the Free Software Foundation; either 

* version 2 of the License, or (at your option) any later version. 

* This library is distributed in the hope that it will be useful, 

* but WITHOUT ANY WARRANTY; without even the implied warranty of 

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 

* Library General Public License for more details. 

* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 

/* 

* The GNU Library General Public License may also be downloaded at 

* http : / /www . gnu . org/copylef t/gpl . html . 
*/ 



* This software was modified by Yahoo! Inc. under the terms 

* of the GNU Library General Public License (LGPL) . For all 

* legal, copyright, and technical issues relating to how 

* this software can be used under GNU LGPL, please write to 

* GNU Compliance, Legal Dept., Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 



/* 

* $Source: /usr/local/cvsroot/ngs/ j s/ j sc/streams . j s , v $ 

* $Id: streams. js,v 1.2 1998/10/26 15:25:21 mtr Exp $ 
*/ 

/* 

* File stream. 
*/ 

function JSC$StreamFile (name) 
{ 

this. name = name; 

this. stream = new File (name) ,- 

this. error = ""; 

this. open = JSC$StreamFile_open; 
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this . close 
this . rewind 
this . readByte 
thi s . ungetBy te 
this . readln 

} 



= JSC$StreamFile_close; 
= JSC$StreamFile_rewind; 
= JSC$StreamFile_read_byte 
= JSC$StreamFile_unget_byt 
= JSC$StreamFile_readln; 



function JSC$StreamFile_open () 

{ 

if (! this . stream. open ("r")) 
{ 

this. error = System. strerror (System. errno) ; 
return false; 

} 

return true; 

} 



function JSC$StreamFile_close () 
{ 

return this . stream. close (); 

} 



function JSC$StreamFile_rewind () 

{ 

return this . stream. setPosition (0); 

} 



function JSC$StreamFile_read_byte () 

{ 

return this . stream. readByte (); 

} 



//@@ function JSC$StreamFile_unget_byte (byte) 
function JSC$StreamFile_unget_byte (_byte) 
{ 

thi s . stream . ungetByte (_byte) ; 

} 



function JSC$StreamFile_readln () 
{ 

return this . stream. readln (); 

} 

/* 

* String stream. 
*/ 

function JSC$StreamString (str) 
{ 
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this . 


name = "StringStream" ; 




this . 


.string = str; 






this . 


, pos = 0 ; 






this . 


. unget_byte = -1; 






this . 


.error = ""; 






this 


. open 


= JSC$StreamString_ 


open; 


this 


. close 


= JSC$StreamString_ 


_close; 


this 


. rewind. 


= JSC$StreamString_ 


rewind ; 


this 


. readByte 


= JSC$StreamString_ 


_read_byte ; 


this 


. ungetByte 


= JSC$StreamString_ 


_unget_byte 


this 


. readln 


= JSC$StreamString_ 


_readln; 



} 



function JSC$StreamString_open () 

{ 

return true; 

} 



function JSC$StrearaString_close () 

{ 

return true; 

} 



function JSC$StreamString_rewind () 

{ 

this. pos = 0; 
this .unget_byte = -1; 
this. error = " " ; 
return true ; 

} 



function JSC$StreamString_read_byte () 
{ 

var ch; 

if (this .unget_byte != //@@ if (this .unget__byt 

{ 

ch = this . unget_byte; 

this .unget_byte = "-1"; //@@ this .unget_byte = 

return ch ; 

} 

if (this. pos >= this . string . length) 
return -1; 

//@@ return this . string . charCodeAt (this . pos++) ; 
return this . string . charAt (this .pos++) ; 

} 



//@@ function JSC$StreamString_unget_byte (byte) 
function JSC$StrearaString_unget_byte (_byte) 
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{ 

this .unget_byte = _byte; 

} 



/ f@@ NOT used 

function JSC$StreamString_readln () 
{ 

var line = new String ( " " ) ; 
var ch; 

while ( (ch = this . readByte ()) != -1 && ch != '\n') 
line. append (String. pack ("C", ch) ) ; 

return line; 

} 



82 



/* 

Local variabli 
mode : c 
End: 
*/ 



This library is free 




* You should have received a copy of the GNU Library General Public 

* License along with this library; if not, write to the Free 

* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 

* MA 02111-1307, USA 
*/ 



http://www.gnu.org/copyleft/gpl.html. 



This software was modified by Yahoo! Inc. under the terms 
meral Public 



Clara, California U.S.A. 



'js/jsc/compiler. js,v $ 
js,v 1.42 1999/01/11 09:01:33 mtr Exp $ 



= 130; 
= 131; 
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JSC$tBREAK = 


13 3; 




J SC$t CONTINUE 




= 134; 


JSC$tDELETE 




= 135; 


JSC$tELSE 


13 6; 




JSC$tFOR 


13 7; 




JSC$tFUNCTION 




= 13 8; 


JSC$tIF = 






JSC$tIN 


14 0 , 




JSC$tNEW 


141, 




JSC$tRETURN 




= 142, 


JSC$tTHIS 


143 




JSC$tTYPEOF 




= 144 , 


JSC$tVAR 


145 




JSC$tVOID 


146 




JSC$tWHILE = 


147 




JSC$tWITH 


148 




JSC$tCASE 


149 




JSC $t CATCH = 


150 




JSC$tCLASS = 


151 




JSC$tCONST = 


152 




JSC$tDEBUGGER 




= 153 


JSC$tDEFAULT 




= 154 


JSC$tDO 




= 155 


JSC$tENUM 


156 




JSC$tEXPORT = 


157; 


JSC$tEXTENDS 




= 158 


JSC$tFINALLY 




= 159 


JSC$t IMPORT = 


160 




JSC$tSUPER = 


161 




JSC$tSWITCH = 


162 




JSC$tTHROW = 


163 




JSC$tTRY 


164 





JSC$tNULL = 165 
JSC$tTRUE = 16 6 
JSC$tFALSE = 167 



JSC$t EQUAL 




168 


JSC$tNEQUAL 






JSC$tLE 




170 


JSC$tGE 




171 


JSC$tAND 




172 


JSC$tOR 




173 


JSC$tPLUSPLUS 




JSC$tMINUSMINUS 


JSC$tMULA 




176 


JSC$tDIVA 




177 


JSC$tMODA 




178 


JSC $t ADD A 




179 


JSC$tSUBA 




180 


JSC$tANDA 




181 


JSC$tXORA 




182 


JSC$tORA 




183 


JSC$tLSIA 




184 


JSC$tLSHIFT 




185 
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JSC$tRSHIFT = 186 
JSC$tRRSHIFT 
JSC$tRSIA = 188 
JSC$tRRSA = 189 
JSC$tSEQUAL = 190 
JSC$tSNEQUAL 



/* Expressions. */ 



JSC$EXPR_COMMA = 0 ; 

JSC$EXPR_ASSIGNMENT = 1 ; 

JSC$EXPR_QUEST_COLON = 2 ; 

JSC$EXPR_LOGICAL = 3; 

JSC$EXPR_BITWISE = 4 ; 

JSC$EXPR_EQUALITY = 5; 

JS C $ EXPR_REliAT I ONAL = 6 ; 

JSC$EXPR_SHIFT = 7; 

JSC$EXPR_MULTIPLICATIVE = 8; 

JSC$EXPR_ADDITIVE = 9; 

JSC$EXPR_THIS = 10; 

JSC$EXPR_NULL = 11; 

JSC$EXPR_TRUE = 12; 

JSC$EXPR_FALSE = 13; 

JSC$EXPR_IDENTIFIER = 14; 

JSC$EXPR_FLOAT = 15 ; 

JSC$EXPR_INTEGER = 16; 

JSC$EXPR_STRING = 17; 

JSC$EXPR_CALL = 18 j 

JSC$EXPR_OBJECT_PROPERTY = 19; 

JSC$EXPR_OBJECT_ARRAY = 20, 

JSC$EXPR_NEW = 21, 

JSC$EXPR_DELETE = 22, 

JSC$EXPR_VOID = 23, 

JSC$EXPR_TYPEOF = 24, 

JSC$EXPR_PREFIX = 2 5 

JSC$EXPR_POSTFIX = 2 6; 

JSC$EXPR_UNARY =27 

JSC$EXPR_REGEXP =28 



JSC$EXPR_ARRAY_INITIALIZER =29 
JSC$EXPR_OBJECT_INITIALIZER =30 



/* Statements */ 



JSC$STMT_BLOCK 


= 0; 


JS C $ S TMT_FUNCT I ON_D E C L ARAT I ON 


= l; 


JSC$STMT_VARIABLE = 2; 




JSC$STMT_EMPTY 


= 3 ; 


JSC$STMT_EXPR 


= 4; 


JSC$STMT_IF = 5; 




JSC$STMT_WHILE 


= 6; 


JSC$STMT_FOR 


= 7; 


JS C $ S TMT_FOR_IN 


= 8; 


JSC$STMT_CONTINUE = 9; 




JS C $ S TMT_BREAK 


= 10; 


JS C $ S TMT_RETURN 


= 11; 


JSC$STMT_WITH 


= 12 ; 
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APPENDIX B2 



* U.S. Patent Pending. Copyright 2000 Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 

* ALL RIGHTS RESERVED. 

* This computer program is protected by copyright law and 

* international treaties. Unauthorized reproduction or 

* distribution of this program, or any portion of it, may 

* result in severe civil and criminal penalties, and will 

* be prosecuted to the maximum extent possible under the law. 



String Utilities 



function rjs_startsWith (full, sub) 

{ 

var fullLower = f ull . toLowerCase ( ) ; 
var subLower = sub . toLowerCase () ; 
var index = fullLower . indexOf (subLower ) ; 
return index ? false : true,- 

} 

function r j s_endsExactlyWith (f ull , sub) 

{ 

var offset = full . length - sub. length; 
if (offset < 0) return false; 

var index = full . indexOf (sub, offset); 
return (index==of f set) ? true : false; 

} 

* Debug utilities 

function r j s_viewOb j (obj ) 
{ 

for (i in obj) alert ( "rj s_viewObj ( ) : " + i + " = " + obj [i] ) • 

* Is the string at the end of left-hand side of '=' 

function r j s_isEndOf LHS ( sub) 
{ 

if (rj s_AssignmentState != "Ihs") return false; 

if (rj s_endsExactlyWith (rj s_Tokens . str ( ) , sub) ) 
return true; 

else 



1 



return false; 

} 

* Find the next token (from ' startPos 1 to the end) equals 

* to 'str' & return the index 

function rj s_findNext ( startPos , str) 
{ 

for (var i=startPos; i<rj s_To kens . length; ++i) 
if (r j s_Tokens [i] == str) return i; 

return -1; // not found 

} 

* Find the last token (between 'head_pos' & 'tail_pos') equals 

* to 'str' & return the index 

function r j s_f indLast (head_pos , tail_pos, str) 
{ 

for (var i=tail_pos; i >= head_j?os; --i) 
if (r j s_Tokens [i] == str) return i; 

return -1; // not found 

} 

* Begin inserting "rmi_xlateURL ( * ) " 

function rj s_xUrlBegin (str) 

{ 

rj s_XUrl_setLocationTail = ""; 

// Is top or parent in the chain? 

var top_pos = r j s_f indNext (r j s_Index_id, "top"); 

var parent_pos = r j s_f indNext (r j s_Index_id, "parent") ; 

if (top__pos != -1 || parent_pos != -1) 

{ 

var split_pos = r j s_Index_id ; 

if (top_pos == -1) 

split_pos = parent_pos; 
else if (parent_pos == -1) 

split_jpos = top_pos; 

else 

split_pos = top_pos; // use 'top' if both are found 

var head = rj s_Tokens . section (rj s_Index_id, split_pos) ; 

var rest = rj s_Tokens . section ( split_pos+2 ) ; // skip 

var override = " rmi_setLocation ( \ " " + head + "\", \"" + rest + 
" \ " , rmi_xlateURL ( " ; 

// Get "a.b.c" from " a . b . c . location" 
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var loc__pos = rjs_ 
var win = r j s_Toke 



t {rjs_lndex_id, "location") ,- 
ion(rjs_Index_id, loc_pos-2) 



rjs. 
a . top . b . loc. 



rjs_XUrl_setLocationTail = "), " + win + " ) " ; 

Ls.null_section(rjs_Index_id) ; // n 



r j s_XUrl_on 
return str; 



"rmi_xlateURL (*) " 



r j s_XUrl_on = 



Begin inserting "rmi_ 



rjs_ 
// i 
rjs_ 



rjs_To 
.null 
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"rmi xlateURM*) " for "*.action=" 




r j s_XI; 
return str; 




var pre = r j s_T< 
if {pre < 0 |T 1 



3 . length-3 ; 
s . length- 1 ; 
< 0) return str; 



if (rj s_To kens [pre] == "document" && r j s_Tokens [cur] == "layers") 

{ 

r j s_Tokens [pre] = "document . layers [\ 1 rmilayer\ 1 ] .document" ; 
r j s_LayerState = ""; 

} 
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r j s_incTop (r j s_XUrl_ 
r j s_incTop (r j s_XCookie_ 
r j s_incTop (r j s_XAction 
r j s_incTop (r j s_XInnerHtml 



rjs_decTop (r j s_XUrl_nesting) ; 
r j s_decTop (r j s_XCookie_ne sting) 
r j s_decTop (r j s _ 
r j s_decTop (r j s_XInnerHtml 



r j s_incTop (array) 



ray. length 
cur = 0; 



< 0) 
-array [c 



length 
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if (pre < 0 | | cur < 0) 

head. push (rj s_Index_id) ; 
tail .push (pre) ; 



r j s_saveOpen ( ) 

{ 

var cur = r j s_Tokens . length - 1 ; 
var pre = cur - 1; 

if (pre < 0 | | cur < 0) return false; 

if <r;js_Tokens[pre] - open ) 

// e.g. save positions for a & c for " a . b . c . open ( " 
rj s_saveChain ( -3, r j s_Open__head , r j s_Open_tail ) ; 

r js_OpenFunc_pos. push (pre) ; // e.g. save position for 

"open" 



function r j s_xOpen ( ) 
{ 

if (rj s_OpenFunc_pos . length == 0) retu 
var funcjos = r j s_OpenFunc_pos . pop ( ) ; 



if (r j s_Tokens [func_pos-l] == ".") 
{ 

var head_pos = r j s_Open_head . pop ( ) ; 
var tail_pos = r j s_Open_tai 1 . pop ( ) ; 

r j s_Tokens [f unc_pos] = " rmi_winob j_open" ; 

var argO = rj s_Tokens . section (head_pos , tail_pos) ; 

r j s_Tokens [f unc_pos+2] = argO + ", " + r j s_Tokens [ f unc_pos+2 ] ; 

r j s_Tokens . null_section (headjpos , tail_pos + 1); 

} 

else 

r j s_Tokens [func_pos] = "rmi_window_open" ; 



* Save *. write () & *.writeln() attributes 

* Trigger State: .write ( or . writeln( 

function r j s_saveWrite () 

{ 

var cur = rj s_Tokens . length - 1; 
var preO = cur - 1; 
var prel = cur - 2 ; 

if (preO < 0 | | prel < 0 | | cur < 0) return false; 

if (rj s_Tokens [prel] == ".") 

if (r j s_Tokens [preO] == "write" | | r j s_Tokens [preO] == 
" writeln" ) 
{ 

// e.g. save positions for a & c for " a . b . c . write ( " 
r j s_saveChain ( -3, r j s_Write_head, r j s_Write_tail) ; 

r j s_WriteFunc_pos . push (preO ) ; // e.g. save position 

for "write" or "writeln" 

} 

return true ; 

} 

* Translate *. write (*) or *. writeln (*) 

* Trigger State: .write ( or . writeln ( 

function r j s_xWrite ( ) 
{ 

if (rj s_WriteFunc_pos . length == 0) return false ; 
var func_pos = r j s_WriteFunc_pos . pop ( ) ; 

if (rjs_Tokens [func_pos-l] == ".") 

{ 

var head_pos = r j s_Write_head . pop ( ) ; 
var tail_pos = r j s_Write_tail . pop ( ) ; 
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r j s_Tokens [func_pos] = "rmi_" + r j s_Tokens [func_pos] ; // xlat 
write or writeln 

var argO = rj s_Tokens . section (head_pos , tail_pos); 

rj s_Tokens [func__pos + 2] = argO + ", " + r j s_Tokens [f unc_pos+2 ] ; 

r j s_Tokens . null_section (head_pos , tail_pos + 1) ; 




* Save *. location . replace ( ) attributes 

* Trigger State: *. replace ( 

function r j s_saveReplace ( ) 

{ 

var cur = rj s_Tokens . length - 1 ; 
var preO = cur - 1; 
var prel = cur - 3; 

if (preO < 0 | | prel < 0 | | cur < 0) return false; 

if (rj s_Tokens [prel] == "location" && r j s_Tokens [preO ] == "replace" 
{ 

// e.g. save positions for a & c for " a . b . c . location . replace ( " 
r j s_saveChain ( -5 , r j s_Replace__head, r j s_Replace_tail ) ; 

rj s_ReplaceFunc_pos .push (preO) ; // e.g. save position for 

"replace " 

} 

return true; 

} 

* Translate location. replace (*) or *. location. replace (* ) 

* Trigger State: * . replace (* 

function r j s_xReplace ( ) 

{ 

if (rj s_ReplaceFunc_pos . length == 0) return false; 

var func_pos = r j s_ReplaceFunc_pos . pop ( ) ,- 
var head_pos = rj s_Replace_head.pop ( ) ; 
var tail_pos = r j s_Replace_tail . pop ( ) ; 

if (rj s_Tokens [func_pos-3] == ".") 

{ 

// Handle the argument IF top or parent is in the chain 

var top_pos = r j s_f indLast (head_pos , tail_pos, "top"); 

var parent_pos = rj s_f indLast (head_pos , tail_pos, "parent") ; 



-1 |[ parent_pos != -1) 



var split_pos = head_pos; 

if (top_pos == -1) 

split_pos = parent_pos ; 
else if (parent_pos == -1) 

split_pos = top_pos; 



plit _ 



= top_j 



win = r j s_Tokens . 
rest = rjs_Tokens. 
0 = "rmi_getTop ( " + 



head_pos, split_pos); 
(split_pos+l, tail_pos) ; 



argO = r j s_Toke: 



r j s_Tokens [f uncjos] = "rmi_: 
rjs_Tokens [func_pos+2] = argi 
r j s_Tokens . null_section (head 



", " + rj s_Tokens [func_pos + 2] ; 
s, tail_pos + 3) ; // remove 



r j s_Tokens [f unc_pos+2] = "self, 
r j s_Tokens [f unc_pos] = "rmi__n 
r j s_Tokens . null_section (head 



rjs_Tokens [func_pos+2] ; 
tail_pos + 3) ; // remove 




ExactlyWith (r j s_Tokens , 
tions for a & 
(0, rj s_Domain_hec 





* Translate document . domain or *. document . domain 

* Trigger State : end of statement 

function r j s_xDomain ( ) 

{ 

for (var i = 0; i<rj s_Domain_head . length; ++i) 
{ 

r j s_Tokens . null_section (rj s_Domain_head [i] , r j s_Domain_tail [i] ) ,- 
rj s_Tokens [rj s_Domain_head [i] ] = " rmi_getOriginalDomain ( ) " ,- 



* Save attributes for location.* or *. location.* 

* Trigger State: *location.* or *location 

function r j s_saveLocat ion ( ) 

{ 

var cur = rj s_Tokens . length - 1; 
var preO = cur - 1 ; 
var prel = cur - 2 ; 

if (preO < 0 | | prel < 0 | | cur < 0) return false; 

var str = r j s_Tokens . str ( ) ; 

var peek = JSC$parser_peek_token_token; 

// if (rj s_Tokens [prel] == "location" && r j s_Tokens [preO ] == ".") 

if (rjs_endsExactlyWith(str, " location. href " ) 

rj s_endsExactlyWith (str, " location. host " ) 
rj s_endsExactly With (str, " location. hostname" ) 
r j s_endsExactlyWith ( s tr , " location . pathname " ) 
rj s_endsExactlyWith (str, " location . port " ) 
rj s_endsExactlyWith (str, " location . search" ) 

) 

{ 

// e.g. save positions for a & href for " a . b . c . location . href " 
rj s_saveChain (0 , r j s_Location_head, r j s Location tail); 

} 

else if (rj s_Tokens [cur] == "location" && peek != ".") 
{ 

// e.g. save positions for a & location for "a . b . c . location" 
r j s_saveChain (0 , rj s_Location_head, r j s_Location_tail ) ; 



return true; 



Save attributes for standalone 'location' 
Trigger State: location 
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* (no '.location 1 or 'location.') 

function r j s_saveStandaloneLocation ( ) 
{ 

var cur = rj s_Tokens . length - 1 ; 
var pre = cur - 1; 

if (pre < 0 | | cur < 0) return false; 

if (r j s_Tokens [r j s_Index_id] == "location" S=& r j s_Index_id == cur && 
rj s_Tokens [pre] != ".") 

r j s_saveChain (0 , r j s_Location_head, r j s_Location_tail ) ; 

} 

* Pop attributes for location.* or *. location.* 

* for each assignment expression 

* Trigger state: ^location.* in LHS 

function r j s_popLocation ( ) 

{ 

r j s_Location_head . pop ( ) ; 
rj s_Location_tail .pop ( ) ; 

} 

* Translate *. location, location.*, *. location.* 

* Trigger State: end of statement 

function r j s_xLocation ( ) 
{ 

for (var i=0; i<rj s_Location_head . length ; ++i) 
{ 

var head_pos = r j s_Location_head [i] ; 

var tail_pos = rjs_Location_tail [i] - 2 ; 

var argO = rj s_Tokens . section (head_pos , tail_pos); 

var prop = r j s_Tokens [r j s_Location_tail [i] ] ; 

if (prop == "location" && argO != "") // from *. location 

argO = argO + ".location"; 
prop = ""; 

else if (prop == "location") // from location 

argO = "location"; 
prop = ""; 



rj s_Tokens . null_section (r j s_Location_head [i] , 
r j s_Location_tail [i] ) ; 

rj s_Tokens [rj s_Location_head [i] ] = " rmi_getOriginal ( " + argO + 
" , \ " " + prop + "\" ) " ; 
} 
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r j s_Location_head . reset ( ) ; 
r j s_Location_tail . reset ( ) ; 

} 



Save attributes for ^document 
Trigger State: *docuraent . cookie* 




r j s_Cookie_head . pop ( ) ; 
rjs_Cookie_tail.pop() ; 



ie_head[i] , rj _ 
"rmi_getCookie ( " + 



r j s_Cookie_head . 
rjs_Cookie_tail. 
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* Save attributes for *. frames [*] .* 

* Trigger State-. *. frames [ 

function r j s_saveFrames ( ) 

{ 

var cur = rj s_Tokens . length - 1; 
var pre = cur - 1; 

if (pre < 0 | | pre-1 < 0 | | cur < 0) return false; 

if (r j s_Tokens [pre] == "frames" && r j s_Tokens [pre - 1] == ".") 
{ 

// e.g. save positions for a & c for " a . b - c . frames [ " 
r j s_saveChain ( -3, r j s_Frames_head, r j s_Frames_tail ) ; 

rj s_FramesObj_pos .push (pre) ; // e.g. save position for 

" frames " 



return true; 

} 

* Translate *. frames [*]. * 

* Trigger State : * . frames [ 

function r j s_xFrames ( ) 

{ 

if (rj s_FramesObj_pos . length == 0) return false; 

var obj_pos = r j s_FramesOb j_pos . pop ( ) ; // "frames" position 

if (rj s_Tokens [obj_pos-l] == ".") 
{ 

var head_pos = r j s_Frames_head . pop ( ) ; 
var tail_pos = r j s_Frames_tail . pop ( ) ; 

var left_pos = objj>os + l; // left bracket 

position 

var right_pos = rj s_f indNext (lef t_pos , "]"); 

if (right_pos != -1) 
{ 

r j s_Tokens [obj_pos] = " rmi_get Frame " ; 

var argO = rj s_Tokens . section (head_pos , tail_pos); 



rj s_Tokens [lef t_pos] = 11 ( " 

if (right_pos - left_pos > 
rj s_Tokens [lef t_pos] + 

else 

rj s_Tokens [lef t_pos] + 
r j s_Tokens [right_pos] = ") 
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r j s_Tokens . null_section (head_pos , tail_pos 

} 



* Translate JavaScript string 

function rmi_xjs(str) 
{ 

r j s_Error = false; // reset 

JSC$generate_debug_inf o = false; 
JSC$warn_missing_semicolon = false; 
JSC$verbose = false; 

JSC$optimize_constant_f olding = false 

var sStr = new JSC$StreamString (str) ; 

rj s_Stmts . reset ( ) ,- 
JSC$parser_reset ( ) ; 

JSC$parser_parse (sStr) ; 

rjs_debug ("OLD: " + str + "\n" + "NEW:" + r j s_Stmts . str ( ) ); 

if (rjs_Error) 
return str; 

else 

return r j s_Stmts . str ( ) ; 
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for built-in Array class 



// Push an element into a stack 
Array .prototype .push = function (obj) 
{ 

this [this. length++] = ob j ; 

} 

// Pop an element into a stack 
Array .prototype .pop = function () 

{ 

var ret = this [this . length- 1] ; 

if (this. length > 0) - -this . length; 



return ret; 

} 

// Reset a stack 
Array . prototype . reset = function () 
{ 

this. length = 0; 

} 

// Return a string after joining all elements 
Array . prototype . str = function () 
{ 

var str = 

for (var i=0; i<this . length; ++i) 
{ 

str += this [i] ; 

} 



// Extract a section of array (including 'from' & 't 
// Return a string after joining extracted elements 
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// If "to" not specified, extract until the last element. 
Array .prototype . section = function (from, to) 
{ 

if (typeof to == "undefined") to = this . length; 
var str = " " ; 

for (var i=from; i<=to && i<this . length; ++i) 
{ 

str += this [i] ; 

} 



// Null a section of array (including 'from' & 'to' elements) 
// If "to" not specified, nullify until the last element. 
Array. prototype. nu _sec tl on - 

if (typeof to == "undefined") to = this. length; 

for (var i=from; i<=to && i<this . length; ++i) 
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// alert ( "debug : " + str) ; 



unction rjs_info(str) 
// alert ("info: " + 

unction r j s_warn ( str ) 
// alert ( "warning : 

function r j s_ 



rjs_ 
return false; 



= new Array ( ) ; 
new Array ( ) ,- 

var r j s_AssignmentState = " " ; // "", lhs , rhs of = 

var rjs_BracketState = "out"; // in, out of [] 
var rjs_CallState = 

var rjs_LayerState = ""; // "", doc 

var rjs_XUrl_on = false; // for inserting " rmi_xlateURL ( * ) " 

var r j s_XUrl_setLocationTail = " " ; // stores a matching tail for 

var rjs_XCookie_on = false; // for inserting "rmi_setCookie (*) " 

var rjs_XAction_on = false; // for inserting "rmi_xlateURL (*) " 



ach element of rjs_*_head stores the 1st token position of a chain 
ach element of rjs_*_tail stores the last token position of a chain 

ach element of r j s_*_nesting stores a counter fc 



var r j s_Open_head = new Array ( ) ; 
var rj s_Open_tail = new Array (); 
var r j s_OpenFunc_pos = new Array (); 
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s_Write_head = new Array ( ) ; 
s_Write_tail = new Array () ; 
s_WriteFunc_pos = new Array () ; 



var rj s_Frames_head = new Array (); 
var rj s_Frames_tail = new ArrayO; 
var rj s_FramesObj__pos = new Array 0 ; 



s_Replace_head = new Array ( ) ; 
s_Replace_tail = new Array O ; 
s_ReplaceFunc_pos = new Array 0 ; 



var r j s_Domain_head = new 
s_Domain tail = new 



Array ( ) ; 
Array ( ) ; 



var rj s_Location_head = new Array 0 ; 
var rj s_Location_tail = new Array!) ; 

s_Cookie_head = new ArrayO; 
s_Cookie_tail = new Array () ; 

s_XUrl_nesting = new Array { ) ; 
s_XCookie_nesting = new ArrayO; 
s_XAction_ne sting = new ArrayO; 
s_XInnerHtml nesting = new Array ( 



4 



APPENDIX C 



<Function Calls> 


open(URL, TARGET, OPT) 


rmi_window_open(URL, TARGET, OPT) 


OBJ.open(URL, TARGET, OPT) 


rmi_winobj_open(OBJ, URL, TARGET, OPT) 


OBJ.write(Sl, S2, ...) 


rmi_write(OBJ, SI, S2, ...) 


OBJ.writeln(Sl, S2, ...) 


rmi_writeln(OBJ, SI, S2, ...) 


OBJ.location.replace ( URL ) 


rmi_replace(OBJ, URL) 


location.replace ( URL ) 


rmi_replace(self, URL) 


OBJ.top.MEMBER.location.replace(URL) 


rmi_replace(rmi_getTop(OBJ.top).MEMBER, URL ) 


OBJ.parent.MEMBER.location.replace(URL) 


rmi_replace(rmi_getTop(OBJ.parent) .MEMBER, URL ) 



< Variables in left-hand-side of an assignment expression> 


OBJ.innerHTML = HTML 


OBJ.innerHTML = rmi_xlate(HTML) 


location = URL 


location = rmi_xlateURL(URL) 


location.href = URL 


location.href =rmi_xlateURL(URL) 


OB J.location = URL 


OB J. location = rmi_xlateURL(URL) 


OBJ.location.href = URL 


OBJ.location.href =rmi_xlateURL(URL) 


OBJ.action = URL 


OBJ.action = rmi_xlateURL(URL) 


OBJ.top.MEMBER.location.PROP = 
URL 


rmi setLocation("OBJ.top","MEMBER.location. 
PROP",rmi_xlateURL(URL),OBJ.top.MEMBER) 


OBJ.parent.MEMBER.location.PROP 
= URL 


rmi setLocation("OBJ.parent","MEMBER.location. 
PROP" , rmi_xlateURL(URL),OB J.parent.MEMBER) 



<Cookie setting> 



OBJ.document.cookie = STR 



rmi_setCookie("OBJ.document.cookie", STR) 



<Variables NOT in left-hand-side of an assignment expression> 


location 


rmi_getOriginal(location, "") 


location.href 


rmi_getOrigmal(location, "href) 


location.host 


rmi_getOriginal(lo cation, "host") 


location.hostname 


rmi_getOriginal(location, "hostname") 


location.pathname 


rmi_getOriginal(location, "pathname") 


location.port 


rmi_getOriginal(location, "port") 


location.search 


rmi_getOriginal(location, "search") 


OBJ.location 


rmi_getOriginal(OBJ.location, "") 


OB J. location.href 


rmi_getOriginal(OBJ.location, "href) 


OBJ.location.host 


rmi_getOriginal(OBJ.location, "host") 


OBJ.location.hostname 


rmi_getOriginal(OB J. location, "hostname") 


OBJ.location.pathname 


rmi_getOriginal(OB J. location, "pathname") 


OBJ.location.port 


rmi_getOriginal(OBJ.location, "port") 


OBJ.location. search 


rmi_getOriginal(OB J. location, " search") 


document.domain 


raii_getOriginalDomain() 


OBJ.document.domain 


rmi_getOriginalDomain() 
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<Cookie reading> 


OBJ.document.cookie 


rmi getCookie(OB J. document, cookie) 


OBJ.document.cookie.MEMBER 


rmi_getCookie(OBJ.document.cookie).MEMBER 



<Variables in any expression> 


OBJ. frames[INDEX] .PROP 


rmi_getFrame(OBJ, INDEX).PROP 


document.layers 


document.layerst'rmilayer'J.document.layers 
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